Question

Решите пожалуйста программу в Паскале, хорошо будет если еще составить блок схему

Answer 1

var a:array [,] of integer;

m,i,j,s1,s2:integer;

begin

write ('Введите размер матрицы: ');

readln (m);

a := new integer [m+1,m+1];

for i:= 1 to m do

begin

for j:=1 to m do

begin

a[i,j]:=Random(21)-10;

write(a[i,j]:4)

end;

writeln;

end;

for i:= 1 to m do

for j:=1 to m do

begin

if i=j then s1:=s1+a[i,j];

if i+j-1=m then s2:=s2+a[i,j]

end;

writeln('Сумма элементов расположенных на главной диагонали: ',s1);

writeln('Сумма элементов расположенных на побочной диагонали: ',s2)

end.