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

MariaSet010203 MariaSet010203    3   21.05.2019 15:40    1

Ответы
uchikha2016 uchikha2016  16.06.2020 06:38

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика