Программа к учебнику информатики для 10 класса К.Ю. Полякова и Е.А. Еремина. Глава 8. Программа № 38.
Вход:
1
2
8
4
5
Результат: Максимум: A[3]=8
program arrMax;
const N = 5;
var A: array[1..N] of integer;
i, nMax: integer;
begin
writeln ( 'Введите элементы массива:' );
for i:=1 to N do
read ( A[i] );
nMax:= 1;
for i:= 2 to N do
if A[i] > A[nMax] then
nMax:= i;
write('A[',nMax,']=',A[nMax])
end.