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

В цикле for взять элемены массива какие там есть и посчитать сумму чётных элементов массива размер массива 10 решить в паскаль абс
Гость
Ответ(ы) на вопрос:
Гость
  Если масив заполнить нужно рандомно: 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы