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

    Найти сумму положительных нечетных чисел, меньших 50 (Паскаль)

    • Автор:

      chyna
  • По-моему что-то в коде не такПри нажатии Shift+F9 ничего не происходит

    • Отвечал:

      mistressippw
    • 0

    Ответ:

    var

     a           : array [1..1000] of longint;

     i,n,sum : longint;

    begin

       Read(n);

       for i:=1 to n do Read(a[i]);

       sum:=0;

       for i:= 1 to n do

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

           then sum:=sum+a[I];

        Writeln(sum);

    end.

    • Отвечал:

      daniabarajas
    • 0

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

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