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

В паскаль создать массив который заполняется случайными числами и выводит процентное соотношение положительных и отрицательных чисел
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы