pas58071.PAS

{* Сумма элементов двумерного массива *}

Unit PAS58071;
Interface
Implementation
Begin
 writeln('Сумма элементов двумерного массива');
End.

Program pas58071;

Uses pas58071.pas; {* Эту строку можно удалить *}
Const {* Постоянные значения *}
  m = 5;
  n = 4;
Var {* Необходимые переменные *}
  a   : Array[1..m, 1..n] Of byte;
  s   : Array[1..n] Of byte;
  i   : byte;
  j   : byte;
  sum : byte;
Begin
  randomize;
  For i := 1 To m Do {* Увеличиваем i от 1 до m с шагом 1 *}
  Begin
    For j := 1 To n Do {* Цикл для j => [1 .. n] *}
    Begin
      a[i, j] := random(10);
      write (a[i, j] : 3)
    End;
    writeln
  End;
  writeln ('------------');
  For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
  Begin
    For i := 1 To m Do {* Переменная i увеличивается с 1 до m *}
    Begin
      s[j] := s[j] + a[i, j];
      sum := sum + a[i, j]
    End;
    write (s[j] : 3)
  End;
  write (' | sum = ', sum);
  readln
End.