Алгоритм мишень цел n, k, i вещ массив p[1000] вещ r1, r2 начало ввести n, массив p и радиусы r1, r2 /* исходные данные */ вывести заголовок и значения n, p, r1, r2 k ¬0 для i от 1 до n шаг 1 выполнять/* подсчитать число точек */ если r1 < ri и ri < r2 то k ¬k +1 конец-если конец-цикл вывести заголовки выходных данных и значений k конец теперь спланируем тестирование. проверку программы выполним при следующих исходных данных. зададим число точек на плоскости: n = 10. подберем расстояния и радиусы: 0.03 21.0 12.89 7.41 99.99 p = 12.34 56.78 90.98 7.6 0.54 r1 = 12.35 r2 = 56.90. выходные данные в этой будут иметь вид: мишень исходные данные: n= 10 массив p[n]: 0.03 21.0 12.89 7.41 99.99 12.34 56.78 90.98 7.6 0.54 r1 = 12.35 r2 = 56.90 ответ: внутри 3 точки (три точки находятся внутри кольца). написать программа в паскале и алгоритм блок-схему.
uses crt;
var
n,k,i:integer;
r1,r2:real;
p: array[1..1000] of real;
begin
k:=0;
write('n='); read(n);
writeln('P[n]:');
for i:=1 to n do
read(p[i]);
write('r1='); read(r1);
write('r2='); read(r2);
for i:=1 to n do
begin
if (r1<p[i]) and (p[i]<r2) then k:=k+1;
end;
writeln;
write('Внутри ',k,' точки.');
end.