Предмет: Информатика,
автор: dasha0403
найти максимальный элемент в массиве А10,заполненном случайным образом.
Ответы
Автор ответа:
0
var
a : array [1..10] of integer;
i, max : integer;
begin
for i := 1 to 10 do a[i] := trunc (random (500));
max := 1;
for i := 2 to 10 do
if a[i] > a[max] then max := i;
writeln ('Максимальный элемент a[', max, '] = ', a[max]);
end.
Похожие вопросы
Предмет: Русский язык,
автор: 21321313132
Предмет: Биология,
автор: 11banana1
Предмет: Математика,
автор: evgeniya4357
Предмет: Физика,
автор: JuliaKivi