ПАСКАЛЬ!!Заполнить массив случайными числами и вывести ** экран,только те элементы...

Question

ПАСКАЛЬ!!
Заполнить массив случайными числами и вывести на экран,только те элементы массива,которые больше 5.

Answer 1

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.