Question

Двумерные массивы
Найдите сумму элементов находящихся ниже главной диагонали матрицы ( n,n)
И с++ и Паскаль

Answer 1

Паскаль.

program v1;

var

 a:array [1..30,1..30] of integer;

 n,m,i,j,sum:integer;

begin

writeln ('Введите размерность матрицы: '); readln(n,m);

 writeln('Исходная матрица:');

 for i:=1 to n do

 begin

   for j:=1 to m do

   begin

     a[i,j]:=random(100)-50;

     write(a[i,j]:3);

   end;

   writeln

 end;

 

 sum:=0;

 for i:=2 to n do

   for j:=1 to i-1 do

     inc(sum,a[i,j]);

 writeln('Сумма = ',sum)

end.