В целочисленном массиве A 20 случайных чисел из интервала от - 10 до 15. Подсчитать количество отрицательных чисел в этом массиве

Question

Информатика

Анисия

28 января, 15:54

В целочисленном массиве A 20 случайных чисел из интервала от - 10 до 15. Подсчитать количество отрицательных чисел в этом массиве

+4

Ответы (1)

Знаете ответ на вопрос?

Рубен · Answer 1

Var i, n:integer;

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

begin

n:=0;

for i:=1 to 20 do

begin

a[i]:=Random (25) - 10;

write (a[i]:2,' ') ;

end;

writeln;

for i:=1 to 20 do

begin

If a[i]<0 then inc (n) ;

end;

Writeln ('Kol: ', n) ;

readln

end.