Дана матрица А (3,3), найти количество положительных элементов матрицы, сформировать новую матрицу Х (3,4), элементы которой получены из элемнтов А путём деления их на найденное количество. Матрицы А и Х вывести по строкам

Целая программа на паскале:

const

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

((1,2,3,4), (5,6,7,8), (9,10,11,12), (13,14,15,16)) ;

var

i, j: integer;

begin

writeln ('matrix:') ;

for i : = 1 to 4 do begin

for j : = 1 to 4 do write (a[i, j]:4) ;

writeln;

end;

writeln;

writeln ('main diagonal sum: ', a[1,1] + a[2,2] + a[3,3] + a[4,4]) ;

end.