Ответы и объяснения

2013-12-24T16:43:56+00:00
Var 
a:array[1..30]of integer;
i:byte;
begin
for i:=1 to 30 do
a[i]:=random(50);
for i:=1 to 30 do begin
if a[i]>20 then
writeln(a[i]);
end;
end.