Question

1) Сколкьо чисел в массиве А30 находится в интервале от 0 до 6.2) В массиве А30 заменить все отрицательные числа на 5,а остальные на 2.Написать программой..

Answer 1

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;