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

Question

Информатика

Доса

4 октября, 07:01

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

+1

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