подпрограммы

@-=nikotin=- · Регистрация: 14.05.2010

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

Даны две квадратных матриц X[5,5] и Y[7,7].Определить сумму элементов,расположенных на главной диагонале?

@Mиxaил · 14.05.2010, 14:19

Напишу прямо:

Pascal

//============================
sum:=0;
sum1:=0;
for i:=1 to 5 do
   for j:=1 to 5 do
     if (i=j) then sum:=sum+a[i,j];
for i:=1 to 7 do
   for j:=1 to 7 do
     if (i=j) then sum1:=sum1+b[i,j];
writeln(sum+sum1);
//============================

Добавлено через 4 минуты
Пардон, тему не заметил!

Pascal

procedure Summa(a:matrix);
var i,j,sum:integer;
begin
sum:=0;
for i:=1 to N do
   for j:=1 to N do
     if (i=j) then 
        sum:=sum+a[i,j];
end;
begin
//========================
writeln(Summa(a)+Summa(b));
//========================

@-=nikotin=- 0 / 0 / 0 Регистрация: 14.05.2010 Сообщений: 3
		1
	подпрограммы 14.05.2010, 14:06. Показов 1001. Ответов 1 Метки нет (Все метки) Даны две квадратных матриц X[5,5] и Y[7,7].Определить сумму элементов,расположенных на главной диагонале? 0

	14.05.2010, 14:19

Опции темы

подпрограммы

Решение