Задан случайно массив из 20 целых чисел в интервале от - 100 до 100. Подсчитать количество положительных, отрицательных и нулевых элементов

Question

Информатика

Дарюха

23 апреля, 03:44

Задан случайно массив из 20 целых чисел в интервале от - 100 до 100. Подсчитать количество положительных, отрицательных и нулевых элементов

+1

Ответы (1)

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

Филонилла · Answer 1

Begin

for i:=1 to 20 then begin

a[i]:=random (100) - 100;

if (a[i]<0) then inc (k) ;

if (a[i]=0) then inc (b) ;

if (a[i]>0) then inc (c) ;

end;

writeln ("Кол-во положительных чисел: ", c) ;

writeln ("Количество отрицательных чисел:", k) ;

writeln ("Количество нулевых:", b) ;