Question

алгоритм Мишень цел 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 точки (три точки находятся внутри кольца).помогите написать программа в паскале и алгоритм блок-схему.пожалуйста срочно!

Answer 1

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.