Question

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

Answer 1

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

Answer 2

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