Создать список из десяти элементов.Заполнить его случайными числами.Вывести этот список.Вывести наибольший элемент списка.

На Паскаль.

var i, max:integer;

a:array[1..10] of integer;

begin

randomize;

max:=1;

for i:=1 to 10 do begin

a[i]:= random (999);

print (a[i], ';');

end;

for i:=1 to 10 do

if a[i]>max then max:=a[i];

writeln();

writeln (' Наибольший элемент: ', max);

end.