Question

Напиши программу на языке Pascal для создания массива а из десяти целых чисел, элементы которого вводятся с клавиатуры. В программе подсчитать s — сумму чётных элементов массива.

Answer 1

var

i,s:integer;

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

begin

for i:=1 to 10 do begin

read(a[i]);

if a[i] mod 2 = 0 then

s:=s+a[i];

end;

writeln(s);

end.

Answer 2

program sum_chet_el;

const n=10;

var

i,sum:integer;

a:array[1..n] of integer;

begin

for i:=1 to n do begin

read(a[i]);

if (a[i] mod 2 = 0) then

sum:=sum+a[i];

end;

write(sum);

end.