В целостной квадратной матрице найти сумму элементов, стоящих над главной диагональю

@lesha777 · Регистрация: 21.01.2014

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

@Зотов_из_ОСА · 29.04.2014, 20:51

Pascal

randomize;
for i:=1 to n do
 for j:=1 to n do
   begin
      a[i,j]:=random(50);
      if i < j then sum:=sum+(a[i,j]);
   end;
writeln('сумма над главной диагональю', sum);

@Кирилл Пушкарев · 29.04.2014, 20:53

Pascal

1
2
3

s:=0;
for i:=1 to n do for j:=1 to n do if i<j then s:=s+a[i,j];
writeln('S=',s);

@Cyborg Drone · 30.04.2014, 03:41

Зотов_из_ОСА, Кирилл Пушкарев, лишнее условие и бесцельное сканирование нецелевой половины массива вместе с главной диагональю. Вот так лучше:

Pascal

1
2
3

s := 0;
for  i:= 1 to n - 1 do for j := 1 to n - i do s := s + a[i, j];
writeln('S = ', s);

@lesha777 19 / 10 / 10 Регистрация: 21.01.2014 Сообщений: 88
		1
	В целостной квадратной матрице найти сумму элементов, стоящих над главной диагональю 29.04.2014, 20:14. Показов 749. Ответов 3 Метки нет (Все метки) В целостной квадратной матрице найти сумму элементов, стоящих над главной диагональю 0

	30.04.2014, 03:41