1)
for i:= 1 to 30 do
if ((A[i]>=0) and (A[i]<=6))
then k:=k+1;
Где k - счетчик чисел.
2)
for i:= 1 to 30 do begin if (A[i]<0) then A[i]:=5; else A[i]:=2;end;
1)
for i:= 1 to 30 do
if ((A[i]>=0) and (A[i]<=6))
then k:=k+1;
Где k - счетчик чисел.
2)
for i:= 1 to 30 do
begin
if (A[i]<0) then A[i]:=5;
else A[i]:=2;
end;