Заполнить случайными числами массив из n элементов, найти сумму четных элементов. [-10;100] [65;100] [78;256] [-23;45]

Пример: 4 15 3 10 14

сумма четных элементов 28

1

Ответы и объяснения

2012-03-10T23:43:28+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var a:array [1..10] of integer;

s,i,c,b:integer;

Begin

  read(c,b,n);

  randomize;

  for i := 1 to n do

     a[i]:= random(b) -c+1;

 

  for i:= 1 to n do

     if i mod 2 = 0 then s:=s+1;

    

  writeln(s);

 

End.