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

1

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

2013-12-06T17:38:36+00:00
For i:= 1 to m do begin
  if a[i] = 0 then writeln('номер первого элемента, равного нулю = ',i)
  break; // или Exit;
 end;
end. 
Так проще всего, команда 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('нулей нет');
блин я ничего из этого не учила(