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

    Паскаль АБС.
    1)Дано целое число N>0. С клавиатуры вводится N любых чисел , найти сумму только четных из этих чисел.Вывести полученное значение на экран.

    • Автор:

      kane67

  • Ответ:

    Добрый вечер! Пожалуйста, помогите с информатикой, в профиле крайнее не сделанное задание

    • Отвечал:

      zainq02p
    • 0

    Ответ:

    https://znanija.com/task/31939152

    • Отвечал:

      cameronr35a
    • 0

    Ответ:

    var

    a : array [1..100] of integer;

    i, n, s : integer;

    begin

    s:=0;

    writeln('Введите число n');

    read(n);

    for i:=1 to n do

     begin

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

       read(a[i]);

     end;

    writeln;

    writeln('Последовательность:');

    for i:=1 to n do

     write(a[i],' ');

    writeln;  

    for i:=1 to n do  

     if (a[i] mod 2 = 0) then

       s:=s+a[i];

    writeln('Сумма четных: ',s);

    end.    

    • Отвечал:

      pretty ladykryq
    • 0

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

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