Ввести и вывести матрицу 4х4 - Turbo Pascal

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

ввести и вывести матрицу 4х4. Вычислить и вывести скалярные произведения первой строки на вторую, второй на третью, третьей на четвертую, а также первого столбца на второй, на третий и на четвертый.

Решение задачи: «Ввести и вывести матрицу 4х4»

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

const m=4; n=m; W=7;
var
  a: array [1..m,1..n] of Integer;
  i, j: Integer; s: Longint;
begin
  WriteLn('Введите матрицу (',m,'x',n,'):');
  for i:=1 to m do for j:=1 to n do Read(a[i,j]); ReadLn;
  for j:=1 to n do Write(' ',a[1,j]:W); WriteLn;
  for i:=2 to m do begin
    s:=0;
    for j:=1 to n do begin
      s:=s+a[i-1,j]*a[i,j]; Write(' ',a[i,j]:W);
    end;
    WriteLn(' =',s:W);
  end;
  WriteLn; Write('':W+1);
  for j:=2 to n do begin
    s:=0; for i:=1 to m do s:=s+a[i,1]*a[i,j];
    Write(' ',s:W);
  end; WriteLn;
end.

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

Этот код на Turbo Pascal выполняет следующие действия:

Объявляет переменные m, n и W для хранения размеров матрицы и ее элементов.
Создает массив a типа array [1..m,1..n] of Integer для хранения матрицы.
Задает две переменные i и j для итерации по матрице.
Выводит приглашение пользователю ввести матрицу.
Читрует значения матрицы из ввода пользователя, используя цикл for.
Выводит значения матрицы на экран, используя цикл for.
Вычисляет сумму элементов главной диагонали матрицы, используя два вложенных цикла for.
Выводит результат на экран.
Вычисляет сумму элементов побочной диагонали матрицы, используя два вложенных цикла for.
Выводит результат на экран.
Выводит пустую строку.
Вычисляет сумму элементов главной диагонали матрицы, используя два вложенных цикла for.
Выводит результат на экран.
Выводит пустую строку.
Вычисляет сумму элементов побочной диагонали матрицы, используя два вложенных цикла for.
Выводит результат на экран.
Завершает программу.