uses
crt;
const n=8;
m=14;
var matrix:array[1..n,1..m]of word;
i,j,sum:word;
begin
//формирование матрицы элементы которой вычисляются по формуле aij=i+2*j
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;
//обнуляем элементы 1 и n строк
for j:=1 to m do
begin
matrix[1,j]:=0;
matrix[n,j]:=0;
end;
writeln;
//вывод матрицы, полученной после обнуления 1 и n строк
for i:=1 to n do
begin
for j:=1 to m do
write(' ',matrix[i,j]);
writeln;
end;
sum:=0;
//считаем сумму элементов aij, для которых i=j
for i:=1 to n do
for j:=1 to m do
if i=j then sum:=sum+matrix[i,j];
writeln;
//выводим sum
writeln(sum);
readln;
end.
Описания всех блоков программы на Паскале
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.
да сразу все понятно