Создать массив целых чисел, найти сумму четных элементов массива, результат вывести на экран

Question

Информатика

Феодулия

13 января, 12:05

Создать массив целых чисел, найти сумму четных элементов массива, результат вывести на экран

+1

Ответы (1)

Знаете ответ?

Венедиктушка · Answer 1

Const n=5;

var A:array [1 ... n] of integer;

i:byte;

S:integer;

begin

writeln ('vvedi mas A') ;

for i:=1 to n do

readln (A[i]) ;

S:=0;

for i:=1 to n do

if i mod 2=0 then

S:=S+A[i];

writeln ('S=', S) ;

readln;

readln

end.