Question

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

Answer 1

var
  a : array [1..12, 1..4] of integer;
  i, j, max : integer;
begin
  for i := 1 to 12 do
    for j := 1 to 4 do
      read (a[i, j]);
  max := a[3, 1];
  for i := 3 to 4 do
    for j := 1 to 4 do
       if a[i, j] > max then max := a[i, j];
  write (max);
end.