Даны натуральное число x и целые числа a₁, a₂,..., aₓ. Найти: а) номер максимального из чисел aₓ. Если чисел с максимальным значением несколько, то должен быть найден номер последнего из них; б) номер минимального из чисел aₓ. Если чисел с минимальным значением несколько, то должен быть найден номер первого из них. Выполнить в программе Pascal ABC.
Даны натуральное число x и целые числа a₁, a₂,..., aₓ. Найти: а) номер максимального из чисел aₓ. Если чисел с максимальным значением несколько, то должен быть найден номер последнего из них; б) номер минимального из чисел aₓ. Если чисел с минимальным значением несколько, то должен быть найден номер первого из них. Выполнить в программе Pascal ABC.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
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
if arr[i] <= min thenbegin
if arr[i] >= max then
begin
max := arr[i];
maxIndex := i;
end;
begin
min := arr[i];
minIndex := i;
end;
end;
writeln('Номер максимального числа: ', maxIndex + 1);
writeln('Номер минимального числа: ', minIndex + 1);
end.