Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Ребятушки помогите написать программу в Паскале.
Составьте программу подсчета числа различных элементов одномерного массива A(Q), не принадлежащих диапазону [R,P]
Заранее спасибо.
1 | Автор: alexcandr831 | 2012-01-26, 18:42   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2012-01-26, 19:04   |  Репутация: [ + 211 ]
Я вроде бы поставил, только что это за знак ® у меня дальше не читает.
3 | Автор: alexcandr831 | 2012-01-26, 19:08   |  Репутация: [ + 0 ]
( r ) - без пробелов. Кодировка у сайта такая:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-01-26, 19:12   |  Репутация: [ + 211 ]
Спасибо, надеюсь то:)
5 | Автор: alexcandr831 | 2012-01-26, 19:14   |  Репутация: [ + 0 ]
Обращайся ещё, будем рады помочь:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
6 | Автор: Berestovskiy | 2012-01-26, 19:16   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
6 | Автор: Berestovskiy | 2012-01-26, 19:16   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: