Сумма элементов массива, выше лв диагинали.

@Wertys · Регистрация: 29.06.2011

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

дан целочисленный массив B[1..5,1..5]. Вычислить сумму элементов этого массива, расположенных выше левой диагонали.

@Puporev · 29.06.2011, 12:01

Левая это видимо главная. Тогда так.

Pascal

s:=0;
for i:=1 to 4 do
for j:=i+1 to 5 do
s:=s+a[imj];

@Igor · 29.06.2011, 12:01

Pascal

program bb;
uses crt;
var b:array[1..5,1..5] of integer;
    i,j,s:integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
b[i,j]:=-10+random(21);
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(b[i,j]:3);
writeln;
end;
writeln;
s:=0;
for i:=1 to 5 do
for j:=1 to 5 do
if i<j then
begin
s:=s+b[i,j];
end;
write('S = ',s);
end.

@Wertys · 29.06.2011, 12:03 **[ТС]**

А! Уже нашел=))

Добавлено через 55 секунд
Спасибо=)) Все ок!

@Puporev · 29.06.2011, 12:07

Z.I.V, Можно уменьшить количество циклов

Pascal

program bb;
uses crt;
var b:array[1..5,1..5] of integer;
    i,j,s:integer;
begin
randomize;
s:=0;
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
   begin
    b[i,j]:=-10+random(21);
    write(b[i,j]:4);//если :3, то числа сольются
    if i<j then  s:=s+b[i,j];
   end;
  writeln;
 end;
write('S = ',s);
end.

@Wertys 1 / 1 / 0 Регистрация: 29.06.2011 Сообщений: 94
		1
	Сумма элементов массива, выше лв диагинали. 29.06.2011, 11:56. Показов 413. Ответов 4 Метки нет (Все метки) дан целочисленный массив B[1..5,1..5]. Вычислить сумму элементов этого массива, расположенных выше левой диагонали. 0

@Wertys 1 / 1 / 0 Регистрация: 29.06.2011 Сообщений: 94
	29.06.2011, 12:03 [ТС]	4
	А! Уже нашел=)) Добавлено через 55 секунд Спасибо=)) Все ок! 0

	29.06.2011, 12:07