в цикле 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.