Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.