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

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

program FuelConsumption;

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

type
TMileage = array [1..M] of Real;
TFuelType = array [1..N] of string;

var
Mileage: TMileage;
FuelType: TFuelType;
i, j, maxIndex, minIndex: Integer;
maxMileage, minMileage: Real;

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

// определение видов горючего с наибольшим и наименьшим расходом
for j := 1 to N do
begin
maxMileage := 0;
minMileage := MaxInt;
for i := 1 to M do
begin
if Mileage[i] > maxMileage then
begin
maxMileage := Mileage[i];
maxIndex := i;
end;
if Mileage[i] < minMileage then
begin
minMileage := Mileage[i];
minIndex := i;
end;
end;
writeln('Для автохозяйства ', maxIndex, ' наибольший расход у ', j, ' вида горючего: ', maxMileage);
writeln('Для автохозяйства ', minIndex, ' наименьший расход у ', j, ' вида горючего: ', minMileage);
end;
end.