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

Question

Информатика

Павлюка

27 июня, 14:54

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

+3

Ответы (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.