Ввести с клавиатуры матрицу А размерностью 3*3, состоящую из целых чисел. Вывести матрицу на экран. Найти сумму ее элементов. ПАСКАЛЬ. Для лабы пж.

Ответ:

program prog;

var

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

i,j,sum:integer;

begin

   sum:=0;

   for i:=1 to 3 do begin

       for j:=1 to 3 do begin

           write('Введите элемент матрицы с индексом [',i,',',j,']: '); readln(a[i,j]);

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

       end;

   end;

   for i:=1 to 3 do begin

       for j:=1 to 3 do begin

           write(a[i,j], ' ');

       end;

       writeln();

   end;

   writeln('Сумма всех элементов матрицы равна: ', sum);

end.