Определить произведение четных по значению элементов, стоящих на нечетных номерах.

@_Camelot · Регистрация: 01.11.2011

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

Определить произведение четных по значению элементов, стоящих на нечетных номерах.

!!

@КонецСвета · 20.11.2011, 16:56

Pascal

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

@_Camelot 1 / 0 / 0 Регистрация: 01.11.2011 Сообщений: 27
		1
	Определить произведение четных по значению элементов, стоящих на нечетных номерах. 20.11.2011, 16:43. Показов 1501. Ответов 1 Метки нет (Все метки) Определить произведение четных по значению элементов, стоящих на нечетных номерах. !! 0

	20.11.2011, 16:56

Определить произведение четных по значению элементов, стоящих на нечетных номерах.

Решение