Вычислить значение выражения

[arilabaf]

Даны натуральное число n, действительные числа A1, ...An В последовательности A1 ...An все неотрицательные члены, не принадлежащие отрезку [1,2], заменить на единицу. Кроме того, получить число отрицательных членов и число членов, принадлежащих отрезку [1,2]

[newerow1989]

const n=10;
var a:array[1..n] of real;
    i,otr,ca:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      a[i]:=-10+Random(20)+Random;
      Write(a[i]:5:3,'  ');
   end;
   Writeln;
   Writeln;
   otr:=0;
   ca:=0;
   For i:=1 to n do
   begin
      If a[i]<0 then
         otr:=otr+1;
      If (a[i]<1) or (a[i]>2) then
         a[i]:=1 else
         ca:=ca+1;
   end;
   For i:=1 to n do
      Write(a[i]:5:3,'  ');
   Writeln;
   Writeln('otr = ',otr);
   Writeln('ca  = ',ca);
   Readln;
end.