2 ноября, 05:08

В цикле for взять элемены массива какие там есть и посчитать сумму чётных элементов массива размер массива 10

решить в паскаль абс

+1
Ответы (1)
  1. 2 ноября, 06:10
    0
    Если масив заполнить нужно рандомно:

    program wk;

    var i, s:integer; mas:array [1 ... 10] of integer;

    begin

    s:=0;

    for i:=1 to 10 do

    begin

    mas[i]:=random (21) - 20;

    if mas[i] mod 2=0 then s:=s+mas[i];

    end;

    writeln ('S=', s)

    end.

    Если масив заполняется с клавиатуры:

    program wk;

    var i, s:integer; mas:array [1 ... 10] of integer;

    begin

    s:=0;

    for i:=1 to 10 do

    begin

    readln (mas[i]) ;

    if (mas[i] mod 2) = 0 then s:=s+mas[i];

    end;

    writeln ('S=', s)

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «В цикле for взять элемены массива какие там есть и посчитать сумму чётных элементов массива размер массива 10 решить в паскаль абс ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы