[Pascal] Как сделать чтобы можно было вводить 12 раз числа? А то только одно число ввел программа завершилась

[Gidus]

Program Sanya5;
Var a,b: integer;
Begin
repeat
b:=0
until b<12;
Begin
readln (a);
if (a>0) and ((a mod 2)=0) then
b:=b+1;
end;
writeln ('Четных чисел - ',b);
end.

[Aleksandr H.]

Program Sanya5;
Var a,b,i: integer;
Begin
  b:=0;
For i:= 1 to 12 do
 begin

  readln (a);
   if (a>0) and ((a mod 2)=0) then
     b:=b+1;
  end;
   writeln ('Четных чисел - ',b);
 end.

[Serge_Bliznykov]

Вы же тему во фрилансе создали: http://programmersforum.ru/showthread.php?t=310066

зачем?

Сообщение от Gidus

Как сделать чтобы можно было вводить 12 раз числа? А то только одно число ввел программа завершилась

нужно ввод чисел поместить в цикл.
например:

  b:=0;
  i:=0;
  repeat
    readln (a);
    i:=i+1;
    if (a>0) and ((a mod 2)=0) then
         b:=b+1;
  until i=12;
  writeln ('Четных положительных чисел - ',b);

[Gidus]

Сообщение от Serge_Bliznykov

Вы же тему во фрилансе создали: http://programmersforum.ru/showthread.php?t=310066

зачем?

Потому что я хитрожопый))) если бы здесь просто не помогли, я бы там заплатил, а создал сразу во фрелансе чтобы если тут не помогут то чтобы не ждать предложений))) Спасибо большое за помощь все робит)))

А хитрожопость в виде кросспостинга запрещена правилами. Посему за кросспостинг и хитрожопость тоже предупреждение ))
Модератор

Дико извиняюсь, не читал правила)))

[Aleksandr H.]

Здесь заплати, делов то. Кошельку пофиг за что в него бабло капнет.