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

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

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

Question

Информатика

Рема

20 июня, 09:29

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

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

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

+3

Ответы (1)

Знаете ответ на вопрос?

Ланя · Answer 1

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.

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

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

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

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