Фефил 26 ноября 2019 в 08:25

Требуется написать программу подсчета числа разных элементов одномерного массива A(Q) принадлежащий отрезку (R..P). (Паскаль)

Var x,i,n,p,r,kol:integer;beginread(n,r,p);for i:=1 to n do begin   read(x);   if (xgt;r) and (xlt;p) then inc(kol)   end;writeln(kol);end.
Для комментирования необходимо зарегистрироваться на сайте