Требуется написать программу подсчета числа разных элементов одномерного массива 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 (x>r) and (x
Оцени ответ
Вход
Регистрация
Задать вопрос
Var x,i,n,p,r,kol:integer;beginread(n,r,p);for i:=1 to n do begin read(x); if (x>r) and (x