Всі умови | Умова: Дана квадратна матрицяа прядку n. Отримати матрицю А^2.
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №698)
program Pr698;
var
A,C:array [1..100,1..100] of integer;
i,j,k,n: integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
A[i,j]:=random(99);
end;
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j],' ');
writeln;
end;
readln;
for i:=1 to n do
for j:=1 to n do
begin
C[i,j]:=0;
for k:=1 to n do
C[i,j]:= C[i,j] + A[i,k]*A[k,j];
end;
for i:=1 to n do
begin
for j:=1 to n do
write(C[i,j],' ');
writeln;
end;
readln;
end.