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

Question

Информатика

Асслан

19 июня, 21:45

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

+3

Ответы (1)

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

Еуфтиния · Answer 1

Var a: array[0 ... 99] of Integer;

i, pol, otr: Integer;

begin

for i:=0 to 99 do

begin

a[i]:=random (41) - 20;

end;

for i:=0 to 99 do

begin

if a[i]>0 then Inc (pol) ;

if a[i]<0 then Inc (otr) ;

end;

writeln ('Положительных: ', pol) ;

writeln ('Отрицательных: ', otr) ;

end.