Matrix80. Дана квадратная матрица A порядка M. Найти сумму элементов ее главной диагонали, то есть диагонали, содержащей следующие элементы:
A1,1, A2,2, A3,3, …, AM,M.
Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | program Matrix80; type matrix = array [1..10,1..10] of integer; var a:matrix; Sum,M, i, j:Integer; begin Write('M: '); Readln(M); for i:=1 to M do begin writeln(i,': '); for j:=1 to M do begin Write(j,' : '); Read(a[i,j]); end; end; Sum:=0; for i:=1 to M do Sum:=Sum+a[i,i]; Writeln(Sum); end. |
program matrix80;
type
matrix=array [1..9,1..9] of integer;
const
m=8;
n=8;
var
kkk,sum,i,j:integer;
a:matrix;
procedure Vyvod(a:matrix);
var
i,j:integer;
begin
for i:=1 to m do begin
for j:=1 to n do begin
write(a[i,j],’ ‘);
end;
writeln();
end;
end;
begin
kkk:=1;
randomize;
for i:=1 to m do begin
for j:=1 to n do begin
//a[i,j]:=random(50);
a[i,j]:=kkk;inc(kkk);
end;
end;
Vyvod(a);
sum:=0;
for i:=1 to m do begin
sum:=sum+a[i,i];
end;
writeln();
writeln(‘sum=’,sum);
end.