ТЕМА: ОБРАБОТКА ДВУМЕРНЫХ МАССИВОВ… ПО ПАСКАЛЬ!

program picaso; uses crt; type matrice=array[1… 10,1… 10] of integer; var i,j,n,m,k: integer; a: matrice; procedure rea (var a: matrice); begin writeln ('n: '); readln (n); writeln ('m: '); readln (m); writeln ('ведите ',n*m,' элементов'); for i: =1 to m do for j: =1 to n do begin write ('A[',i,',',j,']='); readln (A[i,j]); end; end; procedure writ; begin writeln ('Массив A'); for i: =1 to m do begin for j: =1 to n do write (A[i,j],'); writeln; end; end; procedure calc (a: matrice); begin for j: =1 to n do begin k: =0; for i: =1 to m do if a[i,j] > 0 then inc (k); writeln ('столбец: ',j,' положительные элементы: ',k); end; end; begin clrscr; rea (a); writ; calc (a); readln; end.