Информация о количестве жильцов в каждой из четырех квартир каждого этажа 12-этажного дома хранится в двумерном массиве (в первой строке - информация о квартирах первого этажа, во второй - второго и т. д.) . В каждой квартире проживает одна семья. Найти численность самой большой семьи в квартирах 3-го и 4-го этажей. (Pascal)

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

program ApartmentResidents;

const
FLOORS = 12; // количество этажей
APARTMENTS = 4; // количество квартир на каждом этаже

type
ResidentsArray = array[1..FLOORS, 1..APARTMENTS] of Integer;

var
residents: ResidentsArray;
maxResidents: Integer;
floor, apartment: Integer;

begin
// Заполнение массива residents данными о количестве жильцов в каждой квартире
residents[1, 1] := 2;
residents[1, 2] := 3;
residents[1, 3] := 4;
residents[1, 4] := 2;

residents[2, 1] := 3;
residents[2, 2] := 2;
residents[2, 3] := 2;
residents[2, 4] := 3;

// добавьте данные для остальных этажей и квартир

// Нахождение максимального количества жильцов на 3-м и 4-м этажах
maxResidents := residents[3, 1];
for apartment := 2 to APARTMENTS do
begin
if residents[3, apartment] > maxResidents then
maxResidents := residents[3, apartment];
end;

for apartment := 1 to APARTMENTS do
begin
if residents[4, apartment] > maxResidents then
maxResidents := residents[4, apartment];
end;

write('Максимальное количество жильцов на 3-м и 4-м этажах: ', maxResidents);
end.