Программа подсчета числа различных элементов одномерного массива А(Q), не принадлежащих отрезку [R,P]

@Вера · Регистрация: 17.05.2014

Помогите, пожалуйста

(если не трудно, то можно с пояснениями)

1.Составьте программу подсчета числа различных элементов одномерного массива А(Q), не принадлежащих отрезку [R,P].

@rassamaha42 · 02.06.2014, 23:30

первое

Pascal

var
a:array[1..20] of integer;
i,r,p,q,s:integer;
begin
s:=0;
writeln('vvedite kolichestvo elementov massiva-Q');
readln(q);
writeln('vvedite R');
readln(r);
writeln('vvedite P');
readln(p);
if (p<r) or (p=r) then
begin
writeln('neverniy otrezok [R,P]');
exit;
end else
for i:=1 to q do
begin
writeln('vvedite ',i,'-y element massiva');
readln(a[i]);
if (a[i]>=r) and (a[i]<=p) then s:=s+1;
end;
writeln('kollichestvo chisel<',r,' no >',p,' =',s);
readln;
end.

@Вера · 03.06.2014, 13:13 **[ТС]**

спасибо

@Вера 0 / 0 / 0 Регистрация: 17.05.2014 Сообщений: 9
		1
	Программа подсчета числа различных элементов одномерного массива А(Q), не принадлежащих отрезку [R,P] 02.06.2014, 19:22. Показов 2700. Ответов 2 Метки нет (Все метки) Помогите, пожалуйста (если не трудно, то можно с пояснениями) 1.Составьте программу подсчета числа различных элементов одномерного массива А(Q), не принадлежащих отрезку [R,P]. 0

@Вера 0 / 0 / 0 Регистрация: 17.05.2014 Сообщений: 9
	03.06.2014, 13:13 [ТС]	3
	спасибо 0

Опции темы

Программа подсчета числа различных элементов одномерного массива А(Q), не принадлежащих отрезку [R,P]

Решение