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

var:a : array[1..10] of integer;i: integer;beginfor 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.