Программа в Pascal
определить количество положительных элементов в двумерном массиве 5x4

const n=5; const m=4;var i,j,Sch: integer;a:array[1..n,1..m] of integer;BeginSch:=0;For i:=1 to 5 do beginFor j:=1 to 4 do begina[i,j]:=random(73)-23;write(a[i,j], ' ');If a[i,j]>0 then Sch:=Sch+1;end;end;writeln;writeln('kollichestvo= ', Sch);end.