• Вопрос по информатике:

    Найти сумму положительных элементов массива, имеющих индекс 3, 5, 7 и т.д

    • Автор:

      kaiburke
  • program raf105;

    var a:array[1..10] of integer;

    i,sum:integer;

    begin

    writeln('Вводите 10 чисел по очереди:');

    for i:=1 to 10 do

    begin

     readln(a[i]);

     if (i>=3) and ((i mod 2)<>0) and (a[i]>0)

       then sum:= sum+a[i];

    end;

    write('Вывод: ',sum);

    end.

    Язык программирования PascalABC

    • Отвечал:

      rydervlya

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска