В паскаль создать массив который заполняется случайными числами и выводит процентное соотношение положительных и отрицательных чисел
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
