Разработать алгоритм в массиве В (1:4,1:4) определить сумму элементов главной диагонали

1

Ответы и объяснения

2013-05-28T14:01:48+04:00

uses crt;
var i,s,j:integer;
a:array[1..4,1..4] of integer;
begin
randomize;
s:=0;
for i:=1 to 4 do begin
for j:=1 to 4 do a[i,j]:=random(50)+1;
end;
for i:=1 to 4 do begin writeln;
for j:=1 to 4 do begin
write(a[i,j],' ');
end;
s:=s+a[i,i];
end;
writeln;
writeln('s= ',s);
readln;
end.