<h3>Я так понимаю, Вы ошиблись, и вместо "сколько" написали "скорость".</h3><h2>Задание 1</h2>
<h3>Ответ</h3>
4 секунды
<h2>Задание 2</h2>
<h3>Ответ</h3>
10 секунд
<h2>Задание 3</h2>
<h3>Ответ</h3>
3.9 секунды
<h2>Задание 4</h2>
<h3>Ответ</h3>
2.8 секунды
Зло проиграет всегда ведь наш девиз добрата!!
Var
a:array of integer;
i,b,c:integer;
BEGIN
write('Введите размер массива - ');
readln(b);
setlength(a,b);
writeln('Введите элементы массива - ');
for i:=0 to b-1 do begin
readln(a[i]);
if a[i] mod 2 = 0 then c:=c+a[i];
end;
writeln('Сумма четных элементов массива - ',c);
END.