Найти сумму элементов каждой ее диагонали

@KSsjunyaaa · Регистрация: 03.01.2012

Author24 — интернет-сервис помощи студентам

Matrix82°. Дана квадратная матрица A порядка M. Найти сумму элементов каждой ее диагонали, параллельной главной (начиная с одноэлементной диагонали A1,M). с объяснением

@Puporev · 05.01.2012, 21:34

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,i,j,z,sum:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Массив:');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
writeln('Суммы диагоналей:');
for z:=-m+1 to m-1 do
 begin
  {сумма на диагонали, отстоящей на z от главной }
  sum:=0;
  for j:=1 to m do
  if (j+z>0) and (j+z<=m) then
  sum:=sum+a[j+z,j];
  writeln(z+m:2,' = ',sum);
 end;
readln
end.

@KSsjunyaaa · 05.01.2012, 21:37 **[ТС]**

поясните пожалуйста задачу

@Puporev · 05.01.2012, 21:45

Нарисуйте матрицу на бумаге, диагонали и разбирайтесь, я не умею.

@KSsjunyaaa · 05.01.2012, 21:47 **[ТС]**

объясни пожалуйста что к чему

@KSsjunyaaa 0 / 0 / 0 Регистрация: 03.01.2012 Сообщений: 69
		1
	Найти сумму элементов каждой ее диагонали 05.01.2012, 21:21. Показов 1045. Ответов 4 Метки нет (Все метки) Matrix82°. Дана квадратная матрица A порядка M. Найти сумму элементов каждой ее диагонали, параллельной главной (начиная с одноэлементной диагонали A1,M). с объяснением 0

@KSsjunyaaa 0 / 0 / 0 Регистрация: 03.01.2012 Сообщений: 69
	05.01.2012, 21:37 [ТС]	3
	поясните пожалуйста задачу 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	05.01.2012, 21:45	4
	Нарисуйте матрицу на бумаге, диагонали и разбирайтесь, я не умею. 0

@KSsjunyaaa 0 / 0 / 0 Регистрация: 03.01.2012 Сообщений: 69
	05.01.2012, 21:47 [ТС]	5
	объясни пожалуйста что к чему 0