Нужно ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера. Pascal ABC

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

Пример кода на Pascal ABC:

program FindMaxElements;
var
arr: array[1..5] of Integer;
i, max1, max2, idx1, idx2: Integer;
begin
// Ввод массива с клавиатуры
writeln('Введите 5 элементов массива:');
for i := 1 to 5 do
readln(arr[i]);
// Инициализация начальных значений для поиска двух максимальных элементов
max1 := arr[1];
idx1 := 1;
max2 := arr[2];
idx2 := 2;
// Поиск двух максимальных элементов и их номеров
for i := 2 to 5 do
begin
if arr[i] > max1 then
begin
max2 := max1;
idx2 := idx1;
max1 := arr[i];
idx1 := i;
end
else if arr[i] > max2 then
begin
max2 := arr[i];
idx2 := i;
end;
end;
// Вывод результатов
writeln('Первый максимальный элемент: ', max1, ', его номер: ', idx1);
writeln('Второй максимальный элемент: ', max2, ', его номер: ', idx2);
end.

Этот код позволяет пользователю ввести с клавиатуры массив из 5 элементов, найдет два максимальных элемента и их номера в массиве.