Question

СРОЧНО! Дана действительная квадратная матрица порядка 4 на 4.Вычислить сумму ниже главной диагонали.
Помогите пожалуйста.P.S. Желательно чтобы числа самому вводить,а не рандомно

Answer 1

var
  a: array[1..4,1..4]of integer;
  i, j,s: integer;

begin
  s := 0;
  for i := 1 to 4 do begin
    for j := 1 to 4 do begin
    write('a[',i,',',j,'] = ');
      readln(a[i,j]);
    end;
  end;
  for  i:=2 to  4 do
   for  j:=1 to i-1 do s:=s+A[i,j];  
  writeln('Сумма элементов под главной диаганалью',s);  
end.

Answer 2

Спасибо братан:)

Answer 3

Пожалуйста, успехов!