|
Ребятушки помогите написать программу в Паскале.
|
|
Составьте программу подсчета числа различных элементов одномерного массива A(Q), не принадлежащих диапазону [R,P]
Заранее спасибо.
|
|
|
|
var
a:array[1..100]of integer;
q,r,p,i,s:integer;
begin
readln(q);
read®;read(p);
s:=0;
for i:=1 to q do
read(a[i]);
for i:=1 to q do
if (a[i]<r)or(a[i]>p) then s:=s+1;
writeln(s);
end.
"Спасибо" принимается в виде повышения репутации. ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Я вроде бы поставил, только что это за знак ® у меня дальше не читает.
|
|
|
|
( r ) - без пробелов. Кодировка у сайта такая:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Обращайся ещё, будем рады помочь:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
