11 Паскаль Заполнить и вывести матрицу 4х4 случайными числами от 10 до 99. Просуммировать...

Question

11 Паскаль Заполнить и вывести матрицу 4х4 случайными числами от 10 до 99. Просуммировать первую строку чисел и вывести результат.

Answer 1

const n=4;

var

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

 i,j,sum:integer;

begin

 for i:=1 to n do

   begin

     for j:=1 to n do  

       begin

         a[i,j]:=random(90)+10;

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

       end;

     writeln;

   end;

 sum:=0;

 for i:=1 to n do

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

 writeln;

 writeln('sum:',sum);

end.