Дан массив из n элементов. найти сумму всех элементов массива.

Const n=20;vars,i:integer;a:array[1..n] of integer;begins:=0;for i:=1 to n dos:=s+i;write(s);end.

Const
  nn = 50;
  nm = 50;
var
  Mas: array[1..nn, 1..nm] of integer;
  R: array[1..nn] of integer;
  C: array[1..nm] of integer;
  i, j, n, m, k, s, a, b, p : integer;

begin
  Write('Введите число строк и столбцов матрицы: '); Readln(n,m);
  Write('Введите границы для элементов массива: '); Readln(a,b);
  { защита от злобных буратинок }
  if a>b then begin k:=a; a:=b; b:=k end;
  { найдем количество позиций, требуемое для вывода элементов }
  k:=(b-a+1);
  if k=0 then p:=2
  else begin
    if k<0 then begin p:=4; k:=-k end
    else p:=3;
    p:=p+trunc(ln(k)/ln(10))
  end;
  { заполнение массива случайными числами }
  Randomize;
  Writeln('Исходная матрица');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      Mas[i, j] := Random(b-a+1) + a;
      Write(Mas[i, j]:p)
    end;
    Writeln
  end;
  { суммы по строкам }
  Writeln('Суммы элементов по строкам');
  for i:=1 to n do
  begin
    s:=0;
    for j:=1 to m do s:=s+Mas[i,j];
    R[i]:=s;
    Writeln(s:p+1)
  end;
  { суммы по столбцам }
  Writeln('Суммы элементов по столбцам');
  for j:=1 to m do
  begin
    s:=0;
    for i:=1 to n do s:=s+Mas[i,j];
    C[j]:=s;
    Write(s:p+1)
  end;
  Writeln
end.

Тестовое решение:
Введите число строк и столбцов матрицы: 6 9
Введите границы для элементов массива: -50 200
Исходная матрица
   94  -48    2   83  -49  125   18  110   15
  168   51   57  196   18  132  -36  -25   56
   95   55    1   20  -50  -27  174  -11  -27
  109  142  155  -34  188  160  175  -46  196
   27   85  156  103  -50   13   64   36  -14
  122  116   -2   42  173  177   22  145   67
Суммы элементов по строкам
   350
   617
   230
  1045
   420
   862
Суммы элементов по столбцам
   615   401   369   410   230   580   417   209   293

6) Если Андрей не живет в Витебске (по пункту 2), то Андрей не может быть химиком (по пункту 5)
7) Тот, кто в Минске - физик, т.к. он не может быть математиком (по пункту 3) и химиком (по пункту 5)
8) Следовательно, Иван - не физик (по пункту 1)
9) Т.к. и Андрей не физик (по пункту 4), то физик - Борис, и живет он в Минске (по нашему выводу из пункта 7)
10) Андрей живет в Харькове, т.к. Борис в Минске (по нашему пункту 9) и т.к. Андрей не может жить в Витебске (пункт 2)
11) Значит, Ивану остается только Витебск, следовательно он - химик (по пункту 5)
12) Андрею достается математика (исходя из всех умозаключений)

Итог:
Борис - физик - Минск
Андрей - математик - Харьков
Иван - химик - Витебск