const
n = 10;
var
i:integer;
mas : array[1..n] of integer;
max_num, max_index: integer;
begin
writeln('введите элементы массива');
for i:=1 to n do readln(mas[i]);
for i := 2 to n do
if mas[i] > max_num then begin
max_index := i;
max_num := mas[i];
end;
writeln('Максимальное число ',max_num,' находится на позиции ',max_index);
end.
Объяснение -
константы:
n- это сколько чисел будет в твоём массиве
max_num - максимальное число
max_index - позиция числа
Функции :
for i:=1 to n do readln(mas[i]); - вводим числа в массив
for i := 2 to n do
if mas[i] > max_num then begin
max_index := i;
max_num := mas[i];
end;
ищем максимальное число и его позицию