Паскаль. Последовательность чисел.

[mDv]

Задано натуральне число n,дійсні числа x1,.....,xn.В послідовності x1,.....,xn всі невід'ємні члени,яуі належать відрізку {1,2},замінити на 1.Крім того,знайти кількість від'ємних членів і кількість членів,які належать відрізку {1,2}.
{}дужки включно.

From Stilet: Перевожу
Задано натуральное число n, вещественные числа х1..xn. В последовательности этой все незаменимые члены, пренадлежащие отрезку (1;2) заменить на... (Тут чето не то - прим. переводчика).
1. Кроме того найти кол=во заменимых члено и кол-во членов не пренадлежащих отрезку (1,2)

[danekne]

Ммм... Домен форума вроде в зоне ru.
Расслабься - я перевел.

[Stilet]

mDv

Сам то как думаеш делать? Что в методичке написано?

[Sweta]

перевод неточный.

всі невід'ємні члени,яуі належать відрізку {1,2},замінити на 1.Крім того,знайти кількість від'ємних членів і кількість членів,які належать відрізку {1,2}.
{}дужки включно.

Все положительные элементы, которые принадлежат отрезку {1,2}, заменить на 1, найти количество отрицательных элементов и количество элементов находящихся на отрезке {1,2}.
{} скобки включительно.

[mDv]

проблема в том что методички нету,а в програмирование я 0

[Stilet]

что методички нету

А что библиотеки отменили?

[dexterua]

uses crt;
var
  x:array [1..50] of real;
  i,n,kol,kol2:integer;
begin
 kol2:=0;
 kol:=0;
 write('Enter kol element, n=');
 readln(n);
 for i:=1 to n do begin
 write('Enter ',i,'-th element, x',i,'=');
 readln(x[i]);
 if (x[i]>=1)and(x[i]<=2) then begin
 inc(kol);
 x[i]:=1;
 end;
 if(x[i]<0) then inc(kol2);
 end;
 for i:=0 to n do
 write(x[i],' ');
 writeln;
 writeln('Kol na {1,2} is ',kol);
 writeln('Kol <0 is ',kol2);
 readkey;
end.

[mDv]

Спасибо большое