информатика ,10 класс двумерные массивы помогите решить​

Ответ:

Вариант 1:

Program massives;

type

  matrix = array [1..5, 1..5] of integer;

var

  a : matrix;

  i, j, sum: integer;

begin

  for i := 1 to 5 do {перебор строк}

     for j := 1 to 5 do {перебор всех элементов строки по столбцам}

        read (a[i, j]); {ввод с клавиатуры элемента, стоящего в i -й строке и j -м столбце}

     readln(); {чтобы можно было вводить новую строку с новой строки}

  sum:= 0;

  for i:= 1 to 5 do

    sum:= sum + a[i, 1];

  writeln(sum);

end.

Вариант 2:

type

  matrix = array [1..4, 1..5] of integer;

var

  a : matrix;

  i, j, max: integer;

begin

  for i := 1 to 4 do {перебор строк}

     for j := 1 to 5 do {перебор всех элементов строки по столбцам}

        read (a[i, j]); {ввод с клавиатуры элемента, стоящего в i -й строке и j -м столбце}

     readln(); {чтобы можно было вводить новую строку с новой строки}

  max := a[1, 1];

  for j:= 1 to 5 do

    if (a[1, j] > max) then max := a[1, j];

  writeln(max);

end.

Остальное легко по аналогии