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

Program Zn;

Var i, j, c:integer;

m: array [1 ... 6, 1 ... 6] of byte

Begin

For i:=1 to 5 then begin

For j: = 0 to 5 then

If A[i, j] > = 0 then inc (c)

End;

Writeln ('Количество положительных эллементов: ', с)

End.

program n1;

var

x, y, i:integer;

A = array [1 ... 5, 1 ... 10] of;

begin

for x: = 0 to 5 then

begin

for y: = 0 to 5 then

begin

if A[x][y] > = 0

then

i = i+1;

end;

end;

writeln ('Кол-во положительных: ', i)

end.