Помогите пожалуйста написать две программы

Question

Помогите пожалуйста написать две программы

---

Answer 1

Program Otvet;
Uses CRT;
var  a,n,i,sum:integer;
begin
 write('Введите n:');
 readln(n);
  sum:=0;
  i:=0;
  repeat
  write('Введите ',i+1,'-е число:'); readln(a);
  if a=0 then break;
   if not(odd(a))  then 
    sum:=sum+a;
   i:=i+1;
 until (i>=n);
 writeln(sum); 
 readln;
end.

Comments

Если вы решали 1 номер, то там нужно найти сумму и КОЛИЧЕСТВО