Как вывести значения чтобы получилось 2,5 и 8? Даю 50 баллов

Question

Как вывести значения чтобы получилось 2,5 и 8? Даю 50 баллов

---

Comments

Вообще то тут спрашивают другое. А именно - будет ли найдено первое 50. Ответ: будет выведено 'Нет'. В этой программе ошибка, если в массиве не окажется ни одного 10 и ни одного 50, то условие выхода в until не сработает, и значение i выйдет за границу массива. Нужно ограничить i: until (i >= 10) or...

Answer 1

var

 n, i: integer;

begin

 var a: array[1..10] of integer := (10, 50, 1, 3, 50, 14, 21, 50, 10, 21);

 i := 0;

 repeat

   i += 1;

   if a[i] = 50 then Writeln(i)

 until (i >= 10);

end.