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