Сосчитать количество четных элементов массива, стоящих на нечетных местах.

@Tatiana86 · Регистрация: 03.07.2011

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

Сосчитать количество четных элементов массива, стоящих на нечетных местах. В двух вариантах- с циклом while и с циклом repeat. a[i] mod 2=0. Ввод с клавиатуры необязательно.
Помогите пожалуйста. Может на этих примерах пойму циклы.

@КонецСвета · 11.11.2011, 22:32

Первый вариант

Pascal

uses crt;
var a:array [1..10] of integer;
    i, k: integer;
begin
     for i:=1 to 10 do
         begin
              a[i]:=random(11);
              write (a[i],' ');       // вводим элементы в массив с клавиатуры
         end;
     k:=0;
     i:=1;                               // задаем цикл перебора нечетных элементов
      while i<11 do
            begin
            if a[i] mod 2=0 then         // проверяем условие - является ли элемент четным, если да, то
               inc(k);            // увеличиваем количество на 1
            i:=i+2;
            end;
      writeln;
      writeln ('Количество четных элементов, стоящих на нечетных местах =',k);
end.

@Tatiana86 · 11.11.2011, 22:41 **[ТС]**

КонецСвета, т.е. если элемент повторяется(например несколько раз цифра 2), то он учитывается только один раз?

Добавлено через 3 минуты
КонецСвета, спасибо большое

@КонецСвета · 11.11.2011, 22:58

Tatiana86, н-нет... Если элемент повторяется, то он снова должен быть учтен, правда только в том случае, если его индекс в массиве нечетный. Минутку, я перепроверю код!

Добавлено через 7 минут
Логику вычислений привести?

Добавлено через 6 минут
И второй вариант

Pascal

uses crt;
var a:array [1..10] of integer;
    i, k: integer;
begin
      writeln;
     for i:=1 to 10 do
         begin
              a[i]:=random(11);
              write (a[i],' ');       // вводим элементы в массив с клавиатуры
         end;
     k:=0;
     i:=1;                               // задаем цикл перебора нечетных элементов
      repeat
            begin
            if a[i] mod 2=0 then         // проверяем условие - является ли элемент четным, если да, то
               inc(k);            // увеличиваем количество на 1
            i:=i+2;
            end;
      until i>10;
      writeln;
      writeln ('Количество четных элементов, стоящих на нечетных местах =',k);
end.

Добавлено через 53 секунды
Хм, простите, разумеется, в 11 строке не "вводим элементы с клавиатуры", а "элементы генерируются случайным образом"

@Tatiana86 · 11.11.2011, 23:02 **[ТС]**

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

т.е. если элемент повторяется(например несколько раз цифра 2), то он учитывается только один раз?

нет, это я ошиблась, у вас все верно. спасибо. как кажется легко,когда другой кто то решает

))

Сосчитать количество четных элементов массива, стоящих на нечетных местах.

Решение

Решение

@Tatiana86 3 / 0 / 0 Регистрация: 03.07.2011 Сообщений: 44
		1
	Сосчитать количество четных элементов массива, стоящих на нечетных местах. 11.11.2011, 22:20. Показов 3317. Ответов 4 Метки нет (Все метки) Сосчитать количество четных элементов массива, стоящих на нечетных местах. В двух вариантах- с циклом while и с циклом repeat. a[i] mod 2=0. Ввод с клавиатуры необязательно. Помогите пожалуйста. Может на этих примерах пойму циклы. 0

@Tatiana86 3 / 0 / 0 Регистрация: 03.07.2011 Сообщений: 44
	11.11.2011, 22:41 [ТС]	3
	КонецСвета, т.е. если элемент повторяется(например несколько раз цифра 2), то он учитывается только один раз? Добавлено через 3 минуты КонецСвета, спасибо большое 0

@Tatiana86 3 / 0 / 0 Регистрация: 03.07.2011 Сообщений: 44
	11.11.2011, 23:02 [ТС]	5
	Сообщение от Tatiana86 т.е. если элемент повторяется(например несколько раз цифра 2), то он учитывается только один раз? нет, это я ошиблась, у вас все верно. спасибо. как кажется легко,когда другой кто то решает )) 0

Опции темы