4) Создать список из десяти элементов. Заполнить его
случайными числами. Вывести этот список. Вывести
наибольший элемент списка.
Ответы
Ответ дал:
0
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.
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
1 год назад
7 лет назад
7 лет назад