Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы Поиск в этой теме
Старый 06.04.2021, 21:41   #1
Narvik
Пользователь
 
Регистрация: 03.03.2021
Сообщений: 12
По умолчанию Второй нулевой элемент массива.

Здравствуйте. Как найти второй нулевой элемент массива?
Narvik вне форума Ответить с цитированием
Старый 06.04.2021, 21:47   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 5,987
По умолчанию

Например, иметь переменные для индекса первого и второго нулевого элементов. В цикле пройтись по массиву, при встрече нуля запомнить индекс сначала первого, а затем второго. Когда записывается индекс второго элемента, то прервать цикл.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 06.04.2021, 21:59   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 3,163
По умолчанию

Запросто. Он будет равен 0, если таковой в массиве окажется.
Надо задание правильно формулировать. "Найти индекс второго нулевого элемента массива".
Как-то так.
Код:
const N = 10 ;
var i,i0: integer;
mas: array [0..N] of integer ;
begin
   // тут заполнили массив
   i0 := -2 ;
    for i := 0 to N do
          if mas[i] = 0 then
             if i0 = -1 then 
                  begin
                     i0 := i ; Break
                   end
          else Inc(i0) ;
    if i0 >= 0 then Writeln ('Index = ', i0)
    else Writeln ('Net ni hrena!') ;
end.

Последний раз редактировалось digitalis; 06.04.2021 в 22:09.
digitalis вне форума Ответить с цитированием
Старый 07.04.2021, 07:07   #4
Narvik
Пользователь
 
Регистрация: 03.03.2021
Сообщений: 12
По умолчанию

Спасибо всем !
Narvik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 20000 рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как найти второй по величине элемент массива? Wellshumor Помощь студентам 9 28.09.2018 00:33
Как найти второй максимальный элемент массива? ardamehr711 Помощь студентам 11 14.03.2018 19:39
[Си]: В каждом столбце двумерного массива поменять местами первый отрицательный элемент и последний нулевой. Помогите найти ошибку Yulia24* Помощь студентам 2 20.11.2016 01:21
Одномерный массив. Необходимо заменить последний положительный элемент на второй элемент массива кумитэ Паскаль, Turbo Pascal, PascalABC.NET 1 19.12.2011 15:44
первый нулевой элемент массива shelest Помощь студентам 2 15.11.2009 12:38


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS