В паскаль создать массив который заполняется случайными числами и выводит процентное соотношение положительных и отрицательных чисел

Question

Информатика

Викта

2 февраля, 02:52

В паскаль создать массив который заполняется случайными числами и выводит процентное соотношение положительных и отрицательных чисел

+3

Ответы (1)

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

Федуля · Answer 1

var i, p, o:integer;

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

begin cls; randomize;

for i:=1 to 30 do

begin

a[i]:=random (101) - 50;

if a[i]>0 then inc (p)

else inc (o) ;

end;

writeln ('procent polojutelnyh = ', (30/100) * p,' procent otric = ', (30/100) * o) ;

readln;

end.