В одномерном массиве произвольных чисел вычислить произведения четных и нечетных элементов

27.04.2011, 20:09. **Показов** 2447. **Ответов** 1

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

В одномерном массиве произвольных чисел вычислить произведения четных и нечетных элементов
Надеюсь на вашу помощь народ!

@KaiTheCat · 27.04.2011, 21:01

Pascal

var
  a: array[1..50] of integer;
  i,n,p1,p2: integer;
Begin
  randomize;
  readln(n);
  p1:=1; p2:=1;
  for i:=1 to n do
    begin
      a[i]:=random(100)-50;
      write(a[i],' ');
      if odd(a[i])=true 
        then p1:=p1*a[i]
        else p2:=p2*a[i];
    end;
  writeln;
  writeln('произведение четных: ',p2);
  writeln('произведение нечетных: ',p1);
  readln
End.

Никиток
		1
	В одномерном массиве произвольных чисел вычислить произведения четных и нечетных элементов 27.04.2011, 20:09. Показов 2447. Ответов 1 Метки нет (Все метки) В одномерном массиве произвольных чисел вычислить произведения четных и нечетных элементов Надеюсь на вашу помощь народ!

	27.04.2011, 21:01

Опции темы

В одномерном массиве произвольных чисел вычислить произведения четных и нечетных элементов

Решение