Элементы главной диагонали вывести в массив.
program PascalGuru;
uses crt;
var
Z: array [1 .. 6, 1 .. 6] of integer;
i, j, summa: integer;
begin
for i := 1 to 6 do
for j := 1 to 6 do
Z[i, j] := 2 + random(26); { begin
write ('A[',i,',',j,']='); readln (Z[i,j]); end; }
write('Vot vvedennaya vami matrica A:');
for i := 1 to 6 do
begin
writeln;
for j := 1 to 6 do
write(Z[i, j]:8, ' ');
end;
writeln;
writeln;
for i := 1 to 6 do
if Z[i, i] <> 0 then
begin
summa := 0;
for j := i + 1 to 6 do
summa := summa + Z[i, j];
Z[i, i] := summa;
end;
write('Preobrazovannaya matrica A:');
for i := 1 to 6 do
begin
writeln;
for j := 1 to 6 do
write(Z[i, j]:8, ' ');
end;
readln;
end.