В данной работе необходимо выполнить .... - Pascal

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

В данной работе необходимо выполнить задачу программирования типовых алгоритмов с использованием подпрограмм, разных видов. В задании необходимо создать две программы и выполнить следующие действия: 1.Создать программу с реализацией действий задания с использованием функции. 2.Создать программу с реализацией тех же действий задания с использованием процедуры. Дана матрица A[1:7;1:7]. Заменить отрицательные элементы на главной диагонали значениями сумм строк, на которых находятся эти элементы, а положительные элементы на главной диагонали значениями сумм столбцов, на которых находятся эти элементы. Получение сумм элементов строк и столбцов реализовать одной функцией и одной процедурой.

Решение задачи: «В данной работе необходимо выполнить ....»

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

uses crt;
const n=7;
type matr=array[1..n,1..n] of integer;
procedure Summa(a:matr;k:byte;var s,sb:integer);
var i:byte;
begin
s:=0;sb:=0;
for i:=1 to n do
 begin
  s:=s+a[k,i];
  sb:=sb+a[i,k];
 end;
end;
var a:matr;
    i,j:byte;
    x,y:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(20)-7;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
for i:=1 to n do
 begin
  Summa(a,i,x,y);
  if a[i,i]<0 then a[i,i]:=x
  else a[i,i]:=y;
 end;
writeln('Замена:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

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

Объявление переменных и матрицы.
Заполнение матрицы случайными числами от -7 до 7.
Вывод исходной матрицы на экран.
Суммирование элементов главной диагонали матрицы с помощью процедуры Summa.
Вычисление разности элементов побочной диагонали матрицы.
Замена элементов побочной диагонали матрицы на полученные значения.
Вывод полученной матрицы на экран.
Чтение символа для завершения работы программы.