Разработайте программу, которая считывает с клавиатуры квадратный массив с n строками, 2 ≤ n ≤ 10, и отображает на экране сумму компонентов,
которые находятся:
а) на главной диагонали;
б) на вторичной диагонали;
в) над главной диагональю;
г) ниже главной диагонали;
д) над вторичной диагональю;
е) ниже вторичной диагонали.
Считается, что компоненты квадратного массива являются целыми числами,
которые вводятся с клавиатуры.
В Паскале или С++ как вам удобнее
248
476
Ответы на вопрос:
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.
Если решение оказалось полезным, пометьте его лучшим
Популярно: Информатика
-
сяньчик12.06.2022 13:56
-
nooooovikovaaaaa34516.04.2023 02:07
-
nbibyf200510.08.2022 05:50
-
kristinakotkotk10.02.2023 07:37
-
DVD12345678912.02.2021 06:42
-
Lizulinka05.12.2020 12:43
-
leratyurina16.11.2022 02:44
-
Nimfa4827.05.2023 19:04
-
Stultus26.07.2020 09:13
-
Misha4545612.02.2021 05:34