Вычислить суммы главных элементов диагоналей матриц - Free Pascal

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

1. Вычислить суммы главных элементов диагоналей матриц A[N,N], B[M,M] (M≤20,N≤30) 2. Вычислить и запомнить количество отрицательных элементов каждого столбца для матриц A[10,10], B[15,20]

Решение задачи: «Вычислить суммы главных элементов диагоналей матриц»

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

uses crt;
var
a:array[1..30,1..30]of integer;
b:array[1..20,1..20]of integer;
i,n,m,sum1,sum2,j:integer;
begin clrscr;
write('vvedite n(<=30)=');
read(n);
write('vvedite m(<=20)=');
read(m);
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(20);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j],'  ');
  writeln;
 end;
writeln;
for i:=1 to m do
for j:=1 to m do
b[i,j]:=random(20);
for i:=1 to m do
 begin
  for j:=1 to m do
  write(b[i,j],'  ');
  writeln;
 end;
sum1:=0;
sum2:=0;
for i:=1 to n do
for j:=1 to n do
if i=j then sum1:=sum1+a[i,j];
for i:=1 to m do
for j:=1 to m do
if i=j then sum2:=sum2+b[i,j];
writeln;
writeln('summa v matrice A=',sum1);
writeln('summa v matrice B=',sum2);
writeln('obshaya summa=',sum1+sum2);
readkey;
end.

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

Объявлены переменные: a:array[1..30,1..30]of integer; b:array[1..20,1..20]of integer; i,n,m,sum1,sum2,j:integer;
Задаются значения переменным n и m с помощью функции read()
Заполняются матрицы a и b случайными числами с помощью функции random()
Выводятся на экран значения матрицы a
Вычисляются суммы главных элементов матрицы a с помощью вложенных циклов и условного оператора if
Вычисляются суммы главных элементов матрицы b с помощью вложенных циклов и условного оператора if
Выводятся на экран значения суммы главных элементов матрицы a
Выводятся на экран значения суммы главных элементов матрицы b
Выводится на экран общая сумма главных элементов матрицы a и b, которая равна сумме sum1 и sum2
Программа ожидает нажатия клавиши с помощью функции readkey()