Проверить, есть ли в заданной целочисленной последовательности a1 , a2 , ..., aN...

Question

Проверить, есть ли в заданной целочисленной последовательности a1 , a2 , ..., aN элементы, равные нулю. Если есть, найти номер первого из них, если нет – выдать соответствующий текст. ... Программа показывает все нули, как сделать первый чтоб выводило??

---

---

Answer 1

For i:= 1 to m do begin
  if a[i] = 0 then writeln('номер первого элемента, равного нулю = ',i)
  break; // или Exit;
 end;
end. 

Comments

Работает.

---

неа

---

она заканчивается на вводе эллемента

---

var
a: array [1..100] of integer;
x, i, m: integer;

begin
writeln('введите размерность');
readln(m);
for i := 1 to m do
begin
writeln('введите элемент');
readln(a[i]);
end;
for i := 1 to m do
if a[i] = 0 then
begin
writeln('номер первого элемента, равного нулю = ', i);
break;
end;
end.

---

оо спасиибо, а без break никак? я еще не учила этого

---

Так проще всего, команда break просто прерывает цикл.

---

окей, а куда теперь else вставить чтобы он выводил что нет нудей во всем массиве

---

var
a: array [1..100] of integer;
x, i, m: integer;

begin
writeln('введите размерность');
readln(m);
for i := 1 to m do
begin
writeln('введите элемент');
readln(a[i]);
end;
for i := 1 to m do
if a[i] = 0 then
begin
writeln('номер первого элемента, равного нулю = ', i);
exit;
end;
writeln('нулей нет');
end.

---

exit - процедура выхода из программы. То есть если находится ноль, то программа завершается. Если нет нулей, то после цикла будет выполнена команда writeln('нулей нет');

---

блин я ничего из этого не учила(