Заполнить матрицу случайными числами в диапазоне [-5;5] и найти сумму элементов, обозначенных крестиком - PascalABC.NET

Формулировка задачи:

хооох охохо оохоо охохо хооох Вот-так

Решение задачи: «Заполнить матрицу случайными числами в диапазоне [-5;5] и найти сумму элементов, обозначенных крестиком»

Листинг программы

const
  n=5;
var
  a: array[1..n,1..n] of integer;
  i,j: byte;
  s: integer;
begin
  writeln('Массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(11)-5;
      write(a[i,j]:4);
      if (i=j)or(i+j=n+1) then s:=s+a[i,j];
    end;
    writeln;
  end;
  writeln('s = ',s);
end.

Объяснение кода листинга программы

Объявляются константа n равная 5 и переменная a типа массив целых чисел размером 5x5.
Задаются значения для переменных i и j равные 1.
Выводится сообщение Массив: и начинается заполнение матрицы a случайными числами в диапазоне [-5;5] с помощью функции random(11)-5.
С помощью вложенных циклов for перебираются все элементы матрицы a.
При равенстве индексов i и j или их суммы равной сумме индексов плюс единице, значение элемента a[i,j] добавляется к переменной s.
После заполнения матрицы выводится её содержимое.
Выводится значение переменной s, равное сумме элементов, обозначенных крестиком.