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

Question

Информатика

Виша

3 февраля, 20:18

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

+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.