Дан массив из 20 элементов вводиться с клавиатуры, подсчитать количество отрицательных элементов

Question

Информатика

Анастасиюшка

19 апреля, 08:54

Дан массив из 20 элементов вводиться с клавиатуры, подсчитать количество отрицательных элементов

+1

Ответы (1)

Знаете ответ?

Верка · Answer 1

Var

i, n:integer;

a:array[1 ... 20]of integer;

begin

for i:=1 to 20 do

begin

readln (a[i]) ;

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

end;

writeln ('Ответ: ', n)

end.