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.
