Question

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

Answer 1

var

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

i, max: integer;

begin

randomize;

for i := 1 to 10 do

a[i] := random(100);

max := a[1];

for i := 2 to 10 do

if a[i] > max then

max := a[i];

write('The list of random numbers: ');

for i := 1 to 10 do

write(a[i], ' ');

writeln;

writeln('The largest element of the list is ', max);

end.