Дан массив из...

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

  1. Podo

    Podo New Member

    Дан массив из 10 целых чисел найти произведение элементов массива с четнымииндексами
     
    Podo, 29 мар 2010
    #1
  2. ssj12345

    ssj12345 New Member

    Var
    a:array[1..10] of integer;
    sum,i:integer;
    begin
    for i:=1 to 10 do
    begin
    readln(a);
    if i mod 2 = 0 then
    sum:=sum+a;
    end;
    writeln(sum);
    end.



    Надеюсь на "Лучший ответ"
     
    ssj12345, 29 мар 2010
    #2

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

Наша группа