Question

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

Answer 1

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.

Answer 2

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.