Проверить, есть ли в целочисленной последовательности элементы равные нулю

Категория: Delphi/Pascal
2011-09-02 23:48:59

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

code: #pascal
  1. var number,index,zero,N:integer;
  2. Find:boolean=false;
  3. begin
  4.   zero:=0;
  5.   writeln('Введите количество чисел');
  6.   readln(N);
  7.   for index:=1 to N do
  8.   begin
  9.     writeln('Введите ',index,'-е число ');
  10.     readln(number);
  11.     if (number=0) and (Find=false) then
  12.       begin
  13.        zero:=index;
  14.        Find:=true;
  15.      end;
  16.   end;
  17.   if zero=0 then writeln('Нулей нет')
  18.   else writeln(zero,'-й элемент нулевой');
  19.   readln
  20. end.
Поделиться:

Похожие статьи:

теги: студенты, консольное приложение, последовательность