Вводится число массива n. найдите количество отрицательных элементов в этом массиве.

Aresn Aresn    1   15.12.2019 15:10    0

Ответы
20183 20183  10.10.2020 20:44

Var a:array[1..100]of integer;

     k,i:integer;

begin

readln (n);

for i:=1 to n do

begin

read (a[i]);

if a[i]<0 then k:=k+1;

end;

write (k);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика