В двумерном массиве 5×5 найти количество положительных элементов

program n1; varx,y,i: integer; A=array [1… 5, 1… 10] of <тип элементов>; beginfor x: =0 to 5 thenbeginfor y: =0 to 5 thenbeginif A[x][y] >=0theni=i+1; end; end; writeln ('Кол-во положительных: ',i) end.