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

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

program ApartmentResidents;

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

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

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

begi
// Заполнение массива 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 d
begi
if residents[3, apartment] > maxResidents the
maxResidents := residents[3, apartment]
end;

for apartment := 1 to APARTMENTS d
begi
if residents[4, apartment] > maxResidents the
maxResidents := residents[4, apartment]
end;

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