Написать программу которая определяет количество отрицательных элементов массива. Размер - 10 элементов. диапозон - 10 до 10. в случайных числах. массив не выводить

Question

Информатика

Аникитка

14 сентября, 07:45

Написать программу которая определяет количество отрицательных элементов массива. Размер - 10 элементов. диапозон - 10 до 10. в случайных числах. массив не выводить

+2

Ответы (1)

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

Порфир · Answer 1

Var

m : array [0 ... 9] of Integer;

c, i : integer;

begin

c:=0;

for i : = 0 to 9 do begin

read (m[i]) ;

if m[i] < 0 then

c: = c+1;

end;

write (c) ;

end.