var i,p,o:integer;a:array [1..30] of integer;
begin cls; randomize;for i:=1 to 30 dobegina[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.
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.