Составьте программу вычисления...

Тема в разделе "Информатика", создана пользователем Rimma, 19 фев 2010.

  1. Rimma

    Rimma New Member

    Составьте программу вычисления в массиве A(N) произведения четных элементов.
     
    Rimma, 19 фев 2010
    #1
  2. viciok

    viciok New Member

    program csdnciuo;
    uses crt;
    'var a:array [1..100] of integer;
           i,p,n:integer;
    begin
    clrscr;
    readln(n);
    for i:=1 to n do
    readln(a);
    p:=1;
    for i:=1 to n do
    if a mod 2 =0 then p:=p*a;
    writeln(p);
    readln;
    end.
     
    viciok, 19 фев 2010
    #2

Поделиться этой страницей

Наша группа