[Pascal] Написать программу: Известен расход по N видам горючего в каждом из M автохозяйств. Определите для каждого хозяйства вид горючего с наибольшим и с наименьшим расходом.

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

program FuelConsumption;

const
N = 3; // количество видов горючего
M = 5; // количество автохозяйств

type
FuelType = 1..N;
CarOwners = array[1..M] of record
fuel: array[FuelType] of real;
maxFuelType: FuelType;
minFuelType: FuelType;
end;

var
owners: CarOwners;
i, j: integer;
maxFuel, minFuel: real;

begin
// Ввод расхода горючего для каждого автохозяйства и каждого вида горючего
for i := 1 to M do
begin
writeln('Введите расход горючего для автохозяйства ', i);
for j := 1 to N do
begin
write('Введите расход для вида горючего ', j, ': ');
readln(owners[i].fuel[j]);
end;
end;

// Определение вида горючего с наибольшим и наименьшим расходом для каждого автохозяйства
for i := 1 to M do
begin
maxFuel := -1;
minFuel := owners[i].fuel[1];
for j := 1 to N do
begin
if owners[i].fuel[j] > maxFuel then
begin
maxFuel := owners[i].fuel[j];
owners[i].maxFuelType := j;
end;
if owners[i].fuel[j] < minFuel then
begin
minFuel := owners[i].fuel[j];
owners[i].minFuelType := j;
end;
end;
end;

// Вывод результата
writeln('Для каждого автохозяйства:');
for i := 1 to M do
begin
writeln('Автохозяйство ', i, ':');
writeln(' - Максимальный расход: ', owners[i].maxFuelType);
writeln(' - Минимальный расход: ', owners[i].minFuelType);
end;
end.