Составьте программу подсчёта числа различных элементов одномерного массива A(Q),не...

Question

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

Answer 1

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 (pbegin
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;<br>end;
writeln('kollichestvo chisel<',r,' no >',p,' =',s);
readln;
end.

Comments

ой харооош