Пожалуйста, помогите решить задачку.

[Cizen]

Вот такая задача:

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

Помогите плиз.

[zetrix]

Данные как вводятся?

[Tayfun]

program zad1;
uses crt;
const max_n=100;
type
mass:array[1..max_n] of integer;
var
a:mass;
n,i:integer;
b:boolean;
begin
clrscr;
writeln('VVEDITE n');
readln(n);
for i:=1 to n do begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln;
b:=false;
writeln('POSITION:');
for i:=1 to n do
if a[i]=0 then begin write(i,' '); b:=true;
end;
if b=false then writeln('OTSUTSTVUET');
readkey;
end.

[Carbon]

var number,index,zero,N:integer;

begin
  zero:=0;
  writeln('Введите количество чисел');
  readln(N);
  for index:=1 to N do
  begin
    writeln('Введите ',index,'-е число ');
    readln(number);
    if number=0 then zero:=index
  end;
  if zero=0 then writeln('Нулей нет')
  else writeln(zero,'-й элемент нулевой');
  readln
end.

PS. Пока писАл, уже ответ появился...

[Carbon]

А нафиг массив?

[krypton]

const n=10 {n любое целое число}
var
a:array[1..n] of integer;
i,k:integer;

begin
k:=0;
randomize;
for i:=1 to n do
a[i]:=random(n); { заполняем массив произвольными числами}
for i:=1 to n do
if a[i]=0 then begin
writeln('a[',i,']=0')
k:=1; {для определения случая когда нет ни одного}
{ числа равного нулю }
break;
end;
if k=0 then writeln('Net ni odnogo elementa ravnogo nulu!');
end;

[Tayfun]

Сообщение от Carbon

А нафиг массив?

Ну, что бы злые учителя не придерались

[Carbon]

Ну, что бы злые учителя не придерались

Чем эффективнее код, тем лучше.

[Cizen]

Спасибо огромное !!!

[Alex21]

2 Carbon: Не совсем правильно, автор просит вывести номер первого нулевого элемента, а у Вас выводит последний. Вот доработал Ваш код:

var number,index,zero,N:integer;
Find:boolean=false;
 
begin
  zero:=0;
  writeln('Введите количество чисел');
  readln(N);
  for index:=1 to N do
  begin
    writeln('Введите ',index,'-е число ');
    readln(number);
    if (number=0) and (Find=false) then 
      begin
       zero:=index;
       Find:=true;
     end;
  end;
  if zero=0 then writeln('Нулей нет')
  else writeln(zero,'-й элемент нулевой');
  readln
end.