Составить программу нахождения суммы элементов, лежащих ниже главной диагонали

@bttmlss · Регистрация: 27.03.2017

Дана матрица А размером 7х7.Составить программу нахождения суммы элементов ,лежащий ниже главной диагонали .

@Hitoku · 13.04.2017, 23:25

Pascal

const n=7;
var a:array[1..n,1..n] of integer;
begin
var sum:=0;
for var i:=1 to n do begin
  for var j:=1 to n do begin
    a[i,j]:=random(51)-25; write(a[i,j]:4);
    if i>j then sum+=a[i,j];
  end;
  writeln;
end;
write('sum:',sum);
end.

@bttmlss · 16.04.2017, 22:05 **[ТС]**

Hitoku, в стиле тр можно?

@Alvico · 16.04.2017, 22:15

Хотите в стиле ТР - пишите в рубрику ТР! Почему от Вашей безалаберности люди должны свою работу переделывать?

@Hitoku · 16.04.2017, 22:22

Да она и так была в стиле TP

Pascal

const n=7;
var a:array[1..n,1..n] of integer;
    sum,i,j:integer;
begin
sum:=0;
for i:=1 to n do begin
  for j:=1 to n do begin
    a[i,j]:=random(51)-25; write(a[i,j]:4);
    if i>j then sum+=a[i,j];
  end;
  writeln;
end;
write('sum:',sum);
end.

@bttmlss 0 / 0 / 0 Регистрация: 27.03.2017 Сообщений: 40
		1
	Составить программу нахождения суммы элементов, лежащих ниже главной диагонали 13.04.2017, 23:07. Показов 3821. Ответов 4 Метки нет (Все метки) Дана матрица А размером 7х7.Составить программу нахождения суммы элементов ,лежащий ниже главной диагонали . 0

@bttmlss 0 / 0 / 0 Регистрация: 27.03.2017 Сообщений: 40
	16.04.2017, 22:05 [ТС]	3
	Hitoku, в стиле тр можно? 0

@Alvico 15 / 51 / 15 Регистрация: 12.04.2017 Сообщений: 202
	16.04.2017, 22:15	4
	Хотите в стиле ТР - пишите в рубрику ТР! Почему от Вашей безалаберности люди должны свою работу переделывать? 0

Опции темы