F(M,N) вычислить сумму квадратов диагональных элементов матрицы(M=N)
F(M,N) вычислить сумму квадратов диагональных элементов матрицы(M=N)
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,sum:integer;
begin
clrscr;
writeln('Введите ',n*n,' матрицу:');
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
clrscr;
writeln('Матрица:');
sum:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]:4);
if j=i then s:=sum+sqr(a[i,j]);
end;
writeln;
end;
write('Сумма квадратов элементов диагонали=',s);
readln
end.
ГостьProgram Nim17;
uses crt;
const n=10;
var
f:array[1..n,1..n] of integer;
sum1,sum2,i,j:integer;
begin
Randomize;
{ввод и вывод матрицы}
writeln('Mатрица: перезагрузка');
sum1:=0;
sum2:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
f[i,j]:= Random(100)-50;
write(f[i,j]:5);
if i=j then sum1:=sum1+f[i,j]*f[i,j];
if i=n-j then sum2:=sum2+f[i,j]*f[i,j];
end;
writeln;
end;
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln('Cумма элементов диагонали северо-запад - юго-восток ',sum1);
writeln('Cумма элементов диагонали юго-запад - северо-восток ',sum2);
writeln('Cумма всех диагональных элементов ',sum1+sum2);
end.
Не нашли ответ?
Похожие вопросы