Question

написать программу подсчёта числа отрицательных элементов массива

Answer 1

const
n=10;
var
a:array[1..n]of integer;
i,k:integer;
begin
    for i:=1 to n do
        begin
            a[i]:=random(100)-50;
            write(a[i]:4);
                  if a[i]<0 then
                      k:=k+1;
         end;
writeln;
writeln(k);
end.