Var: a : array[1..10] of integer; i: integer; begin for i:=1 to 10 do begin a[i] := radom(10); end; for i:=1 to 10 do begin if a[i] > 5 then begin writeln(' ', a[i]); end; end; end.