Дана квадратная матрица порядка M. Найти сумму элементов ее диагоналей. При написании программу использовать подпрограмму

@vstolzer · Регистрация: 21.01.2013

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

Дана квадратная матрица порядка M. Найти сумму элементов ее диагоналей. При написании программу использовать подпрограмму.

@Puporev · 26.01.2013, 09:06

Сообщение от vstolzer

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

Имеется ввиду главная и побочная диагонали?

Добавлено через 8 минут

Pascal

uses crt;
const max=15;
type mtr=array[1..max,1..max] of integer;
function SumDiag(a:mtr;m:integer):integer;
var i,j,s:integer;
begin
s:=0;
for i:=1 to m do
for j:=1 to m do
if(j=i)or(j=m-i+1) then s:=s+a[i,j];
SumDiag:=s
end;
var a:mtr;
    m,i,j:integer;
begin
randomize;
repeat
write('Размер матрицы до ',max,' m=');
read(m);
until m in [1..max];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
write('Сумма диагоналей=',SumDiag(a,m));
end.

@vstolzer 1 / 1 / 0 Регистрация: 21.01.2013 Сообщений: 8
		1
	Дана квадратная матрица порядка M. Найти сумму элементов ее диагоналей. При написании программу использовать подпрограмму 26.01.2013, 08:45. Показов 1284. Ответов 1 Метки нет (Все метки) Дана квадратная матрица порядка M. Найти сумму элементов ее диагоналей. При написании программу использовать подпрограмму. 0

Опции темы

Дана квадратная матрица порядка M. Найти сумму элементов ее диагоналей. При написании программу использовать подпрограмму

Решение