Даны натуральное число x и целые числа a₁, a₂,..., aₓ. Найти: а) номер максимального из чисел aₓ. Если чисел с максимальным значением несколько, то должен быть найден номер последнего из них; б) номер минимального из чисел aₓ. Если чисел с минимальным значением несколько, то должен быть найден номер первого из них. Выполнить в программе Pascal ABC.

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

program MaxMinNumber;

var
x, i, max, min, maxIndex, minIndex: integer;
arr: array of integer;

begin
write('Введите количество чисел: ');
readln(x);

SetLength(arr, x);

for i := 0 to x-1 do
begin
write('Введите ', i+1, ' число: ');
readln(arr[i]);
end;

max := arr[0];
min := arr[0];
maxIndex := 0;
minIndex := 0;

for i := 1 to x-1 do
begin
if arr[i] >= max then
begin
max := arr[i];
maxIndex := i;
end;

end;

writeln('Номер максимального числа: ', maxIndex + 1);
writeln('Номер минимального числа: ', minIndex + 1);
end.