User вводит расстояние до цели (число). затем производит серию выстрелов - 10 чисел. программа выводит: попал...недолет...перелет

2
затем производит серию выстрелов - 10 чисел.
Можно поподробнее? Что за числа?
абсолютно любые числа. расстояние должно быть конкретно 10. то есть от 1 до 10, от 440 до 449. вообще условие дано такое и никаких пояснений больше нету
Сделаем)
давайте) буду очень благодарна
Выстрелы нужно вводить или случайно генерировать?

Ответы и объяснения

2013-11-20T19:39:59+04:00
Program Task;
Const count = 10;
Var shoots: Array [1..count] of Integer;
    distance, i: Integer;
Begin
    WriteLn('Введите расстояние до цели');
    ReadLn(distance);
    WriteLn('Введите серию выстрелов');
    For i := 1 To count Do
        Read(shoots[i]);
    WriteLn('Результат:');
    For i := 1 To count Do
        If shoots[i] < (distance - 5) Then
                    WriteLn(i, '. Недолет')
        Else If shoots[i] > (distance + 5) Then
            WriteLn(i, '. Перелет')
        Else
            WriteLn(i, '. Попал');
    ReadLn;
End.
Изменил решение.
а где же рендомное значение выстрела? Девушка сказала, что должно быть случайное!
О рандоме вообще речи не шло.
спасибо большое)
2013-11-20T19:48:30+04:00
Uses crt;
const 
  h=10;
var 
  a: array [1..h] of integer; 
  x,n: integer;  
begin 
  write('Расстояние до цели= '); readln(n); 
  for x:=1 to h do 
    a[x]:=random(n*2); 
  for x:=1 to h do 
  begin   
    write('Дальность выстрела ',a[x]); 
    if a[x]=n then writeln(' - Попал'); 
    if a[x]>n then writeln(' - Перелёт');
    if a[x]<n then writeln(' - Недолёт'); 
 end;
end.