Question

Написать программу на языке паскаль:
Задан двумерный массив 4х4 из случайно сгенерированных чисел. Найти сумму элементов находящихся на главной диагонали.

Answer 1

var

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

 i,j,sum:integer;

begin

 sum:=0;

 for i:=1 to 4 do

   begin

     for j:=1 to 4 do

       begin

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

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

       end;

     sum:=sum+a[i,i];

     writeln;

   end;

 writeln('sum: ',sum);

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!