| Код | const
n=5;
type
ta=array[1..n,1..n] of integer;
var
a:ta;
i,j:integer;
Function FDiag(b:ta):integer;
var
id,s:integer;
begin
s:=0;
for id:=1 to n do
s:=s+b[id,id];
FDiag:=s;
end;
Procedure PArrCre;
var
ip,jp:integer;
begin
Randomize;
for ip:=1 to n do
for jp:=1 to n do
a[ip,jp]:=Random(21);
end;
begin
PArrCre;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
writeln('sum diag:');
writeln(FDiag(a));
readln;
end. |
Размерность массива в константе n. Сейчас стоит 5, можешь менять на другую. |
)