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.
Если решение оказалось полезным, пометьте его лучшим
Объяснение:
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>My hobbies</title>
<style>
h3 {text-indent: 25px;}
</style>
</head>
<body>
<center><h1>Мои увлечения</h1></center>
<center><img src="https://tproger.ru/s3/uploads/2019/04/learn-programming-880x308.png" alt="programming"></center>
<h3>У меня есть много увлечений. Самое любимое из них - это программирование.</h3>
<h3>Компьютеры начали интересовать меня еще с самого детства. Каждые выходные мы собирались с друзьями и часами проводили время в компьютерных играх. Со временем мне становилось интересно не только играть, я хотела понять как создаются игры. Для того, чтобы разобраться в gamedev'e, я изучила множество литературы различные курсы в интернете, посетила сотни форумов по разработке игр.</h3>
<h3>Практиковать свои знания я начала в одной из самых популярных программ по разработке компьютерных игр для новичков. Сначала были простые объекты, потом механика, анимация и.т.д. Былы ошибки. С каждой новой ошибкой вырабатывался навык. Ошибок и багов было много...</h3>
<h3>На данный момент я разрабатываю свой проект, параллельно изучая различные языки программирования.</h3>
</body>
</html>