While c шагом в 2 - что это значит и как делается?

@КудрявоеЧудо · Регистрация: 22.10.2014

Студворк — интернет-сервис помощи студентам

у меня было задание найти кол-во чётных элементов стоящих на нечётных местах в массиве. Я делала это как показано ниже. Теперь нужно написать это с использованием While c шагом в 2, т.е. проверять сразу только для нечётных значений i. Как?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
const
  Nmax = 100;
 
type
  TArr = array[1..Nmax] of integer;
 
var
  A: TArr;
  k, n, i: integer;
 
begin
  writeln('Введите n<=', Nmax);
  readln(n);
  writeln('Введите элементы массива');
  for i := 1 to n do
  begin
    write('A[', i, ']=');
    readln(A[i]);
  end;
  k := 0;
  for i := 1 to n do
  begin
    if A[i] mod 2 = 0 then
      if i mod 2 = 1 then
        inc(k);
  end;
  writeln('Количество чётных элементов, стоящих на нечётных местах=', k);
end.

@Puporev · 22.10.2014, 18:50

Pascal
1
2
3
4
5
6
7
8
 k := 0;
  i:=1;
  while i<=n do
   begin
    if A[i] mod 2 = 0 then inc(k);
    i:=i+2
  end;
  writeln('Количество чётных элементов, стоящих на нечётных местах=', k);

Кстати массив здесь совсем не нужен.

@КудрявоеЧудо · 22.10.2014, 19:00 **[ТС]**

а у нас просто задания сейчас на массивы, поэтому именно их использую, спасибо)

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

@КудрявоеЧудо 0 / 0 / 1 Регистрация: 22.10.2014 Сообщений: 13
	22.10.2014, 19:00 [ТС]
	а у нас просто задания сейчас на массивы, поэтому именно их использую, спасибо) 0