Решить задачу в Паскале методом поиска с барьером. Без использования оператора random.Дан...

Question

Решить задачу в Паскале методом поиска с барьером. Без использования оператора random.

Дан массив из N целых чисел. найти номер первого элемента ,который меньше 10.

Answer 1

Const  n = 10;
var  a :array [1..n] of integer;  i :integer;
begin
  for i:= 1 to n do    readln(a[i]);  for i:= 1 to n do    if a[i] < 10 then    begin      writeln(i);      break;    end;
end.

Comments

нужен номер первого элемента, а не всех.

---

ну программа и печатает номер первого элемента

---

странно, но он выдает все, которые меньше 10

---

он не может выдавать все, поскольку написан break

---

можно обойтись без break?

---

можно построить цикл while, он без break будет

---

построй, если несложно)

---

while a[i] >= 10 do
inc(i);
writeln(i);

---

перед этим еще i:= 1;