uses
crt;
const n=8;
m=14;
var matrix:array[1..n,1..m]of word;
i,j,sum:word;
begin
for i:=1 to n do
for j:=1 to m do
matrix[i,j]:=i+2*j;
for i:=1 to n do
begin
for j:=1 to m do
write(' ',matrix[i,j]);
writeln;
end;
for j:=1 to m do
begin
matrix[1,j]:=0;
matrix[n,j]:=0;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(' ',matrix[i,j]);
writeln;
end;
sum:=0;
for i:=1 to n do
for j:=1 to m do
if i=j then sum:=sum+matrix[i,j];
writeln;
writeln(sum);
readln;
end.
Целочисленная матрица_Pascal
Получить целочисленную матрицу A[8,14], для которой aij=i+2j. Распечатать по строкам, обнулить 1 и 8 строку, распечатать по строкам, найти сумму главной диагонали и распечатать.
[quote=Nethead]Получить целочисленную матрицу A[8,14], для которой aij=i+2j. Распечатать по строкам, обнулить 1 и 8 строку, распечатать по строкам, найти сумму главной диагонали и распечатать.[/quote]
если я не ошибаюсь, то главная диагональ есть только у квадратных матриц, так что я посчитал сумму элементов, у которых i=j.
если я не ошибаюсь, то главная диагональ есть только у квадратных матриц, так что я посчитал сумму элементов, у которых i=j.
Код: