1.заполнить матрицу из 5 строк и 5 столбцов случайными числами 2.найти сумму элементов матрицы

Var a:array[1..5,1..5] of integer; i,j,s:integer;
Begin
 randomize;
 s:=0;
 for i:=1 to 5
   for j:=1 to 5
     begin
      a[i,j]:=random(201)-100;
      s:=s+a[i,j];
     end;
 writeln('S=',s);
End.