Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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