Question

Массив из 12 элементов заполнен случайными двухзначными числами. Найдите сумму чётных элементов массива от 10 до 99

Answer 1

var a:array [1..12] of integer; 
i,sum:integer; 
begin 
sum:=0; 
randomize; 
for i:=1 to 12 do begin 
a[i]:=random(10,99); 
if a[i] mod 2 =0 then sum:=sum+a[i]; 
end; 
writeln('Сумма четных чисел массива = ',sum); 
end.