Пожалуйста 1 и 3 быстрей

Question

Пожалуйста 1 и 3 быстрей

---

Answer 1

Var mass:array[1..14] of integer;       
i,sumch,sumnech:integer;
begin
i:=0;
sumch:=0;
sumnech:=0;
repeat
i:=i+1;
mass[i]:=random(10)+1;
if (mass[i] mod 2) =0 
 then sumch:=sumch+mass[i] 
 else sumnech:=sumnech+mass[i]; 
writeln(mass[i]);
until i=14;
writeln('сумма четных      = '+sumch);
writeln('сумма нечетных = '+sumnech);
end.