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

Предыдущий
вопрос Следующий
вопрос

Var a: array [1..100] of integer; //если нужен массив больше - изменить 100 на другое чисто

Begin

For i:=1 to 100 do begin

a[i]:=random(11) //рандомные числа от 0 до 10, допустим, при большем разбросе - изменить 11

If a[i]>5 then write(a[i]);

end;

End.