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 (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.