Написать программу обработки двумерного массива: дан массив А 15 строк и 15 столбцов. Заполнить массив случайными числами, найти мах, мин, и сумму элементов всего массиваНужно в тетраде написатьНужно написать так,как в паскале

Написать программу обработки двумерного массива: дан массив А 15 строк и 15 столбцов. Заполнить массив случайными числами, найти мах, мин, и сумму элементов всего массива Нужно в тетраде написать Нужно написать так,как в паскале
Гость
Ответ(ы) на вопрос:
Гость
var a, b, c, d, i, j :integer;      s :array [1..100,1..100] of integer; begin    b:=63999;    c:=-63999;    for i:=1 to 15 do       begin       writeln;       for j:=1 to 15 do          begin          s[i,j]:=random(127998)-63999;          a:=a+s[i,j];          if s[i,j]>c then c:=s[i,j];          if s[i,j]