Вычислить сумму элементов матрицы А, стоящих правее второго столбца - Free Pascal

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

Написать программу на FreePascal )

Тема:

Обработка массивов в Паскале

Вычислить сумму элементов матрицы А, стоящих правее второго столбца, умножить на это значение элементы первого и второго столбца, результат вывести на печать.

Решение задачи: «Вычислить сумму элементов матрицы А, стоящих правее второго столбца»

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

const n=4;
      a:array[1..n,1..n] of real=((4.2,5.3,5.2,-7.1),
                                  (9.3,-8.1,2.3,9.5),
                                  (0.3,0.4,-0.5,0),
                                  (-1,1,0.3,4.2));
var i,j:integer;
    s:real;
begin
writeln('Исходная матрица');
s:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    write(a[i,j]:7:1);
    if j>2then s:=s+a[i,j];
   end;
  writeln;
 end;
writeln('Сумма элементов правее второго столбца=',s:0:1);
writeln('Преобразованная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j in [1,2] then a[i,j]:=a[i,j]*s;
    write(a[i,j]:7:1);
   end;
  writeln;
 end;
readln
end.

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

Объявлены константы: n=4 (размерность матрицы), a (массив размерности n на n).
В цикле выводятся элементы исходной матрицы a.
Сумма элементов, стоящих правее второго столбца, сохраняется в переменной s.
В цикле выводятся элементы преобразованной матрицы a.
Элементы, стоящие в первом и втором столбцах преобразованной матрицы, умножаются на сумму s.
Файл закрывается.