Написать программу, которая в одновременном массиве заданным вводом данных с клавиатуры находит индекс максимального элемента массива. На языке Pascal.

Предыдущий
вопрос Следующий
вопрос

program MaxElementIndex;

const
size = 5;

var
arr: array[1..size] of Integer;
i, maxIndex, maxElement: Integer;

begin
// Ввод массива с клавиатуры
writeln('Введите элементы массива:');
for i := 1 to size do
begin
write('arr[', i, '] = ');
readln(arr[i]);
end;

// Нахождение индекса максимального элемента
maxIndex := 1;
maxElement := arr[1];

for i := 2 to size do
begin
if arr[i] > maxElement then
begin
maxElement := arr[i];
maxIndex := i;
end;
end;

writeln('Индекс максимального элемента массива: ', maxIndex);
end.