type
ar = array of array of integer;
var
sum:array [1..6] of integer;
n,i,j:integer;
a: ar;
begin
write('N: '); readln(n);
setlength(a,n,n);
dec(n);
for i:=0 to n do
for j:=0 to n do
begin
readln(a[i,j]);
if i+j<n then sum[5]:=sum[5]+a[i,j]
else
if i+j>n then sum[6]:=sum[6]+a[i,j]
else sum[2]:=sum[2]+a[i,j];
if i<j then sum[3]:=sum[3]+a[i,j]
else
if j<i then sum[4]:=sum[4]+a[i,j]
else
sum[1]:=sum[1]+a[i,j];
end;
writeln;
for i:=0 to n do
begin
for j:=0 to n do
write(a[i,j]:4);
writeln;
end;
writeln;
for i:=1 to 6 do
write(sum[i]:6);
end.
Если решение оказалось полезным, пометьте его лучшим
1.Информация - это любое сведение которое человек получает от окружающего мира с органов чувств. 2. Визуальная, аудиальная , тактильная, обонятельная, вкусовая. 4. 1) Текстовая, числовая, звуковая, графическая, видеоинформация, 2)текстовой- лист с текстом, текстовый документ. б)числовой- уравнение, запись чего-либо в двоичном коде. в)графических- картина, рисунок, png.-изображение. Интернет, книги и картинки. 6. Вы учитель (вы источник информации) вас слушают ученики ( они являются приёмником информации). вы встретились с подругой. она рассказывает вам что то. вы в этом случае вы приёмник информации , а ваша подруга источник. 7. с зрения.