repeat until

[4ERRY]

здраствуйте. помогите пожалуста решить задачу.
Используя оператор цикла repeat-until определить количество четных и одновременно положительных чисел для любых введенных десяти чисел


я думала сделать ее вот так. и то не знаю.. верно или нет... Паскаль выдает ошибку.
Program rtyui;
Const
N=10;
Var k, x, s: integer;
Begin
k:=0; s:=0;
while k < n do
begin
k:=k+1;
write(‘Введите число’);
readln(x);
if xmod2=0 and x>0 then
s:=s+x;
end;
writeln(‘Сумма четных положительных чисел равна’, s);
readln;
end.

я не знаю как сделать ее с циклом repeat until...((
подскажите пожалуста.

[capta1n]

s:=s+x;

зачем вы суммируете числа? наверно имелось в виду

s:=s+1;

потому что надо вести подсчет количества элементов

все-таки если нужно подсчитать сумму, то тогда нужно ввести еще одну переменную для подсчета количества элементов - выглядет это будет так:

var
  i : integer;
...
...
if xmod2=0 and x>0 then 
begin
  s:=s+x;
  i:=i+1
end;

if xmod2=0 and x>0 then

"xmod2" надо написать в три слова; тут оба условия надо обрамить в скобки, и лучше условие на положительность поставить первым, то есть вот так

 if (x>0) and (x mod 2=0) then

с repeat until делается все так же, только меняется соответственно while .. do на repeat, а в конце цикла пишется until k=n и все

Program rtyui;
Const
 N=10;
Var
 k, x, s, i: integer;
Begin
  k:=0; s:=0; i:=0;
  repeat
    k:=k+1;
    write('Введите число ');
    readln(x);
    if (x>0) and (x mod 2=0) then
    begin
      s:=s+x;
      i:=i+1
    end
  until k=n;
  writeln ('Сумма четных положительных чисел равна ', s,' ;Количество элементов: ',i);
  readln
end.

[Sazary]

Ваша программа с repeat-until так:

Program rtyui; 
Const 
N=10; 
Var k, x, s: integer; 
Begin 
k:=0; s:=0; 
repeat
k:=k+1; 
write('Введите число ');
readln(x); 
if (x mod 2=0) and (x>0) then
s:=s+x; 
until k>=n;
writeln('Сумма четных положительных чисел равна ', s);
readln;
end.

Замечу, что в задании сказано:

определить количество

а вы считаете сумму.

[4ERRY]

ой... простите пожалуста... я ступила. спасибо огромное! как отблагодарить вас?

[albatros]

program figna;
const
n=10;
var
i,a,k: integer;
begin
i:=0;
a:=0;
k:=0;
repeat
writeln('Ââåäèòå ÷èñëî');
readln(a);
 if (a>0) and(odd(a)=false)then
  inc(i);
inc(k);
until k=n;
writeln(i);
readln;
end.

[capta1n]

весы под аваторкой, если очень хочется )

[Sazary]

4ERRY Для этого и нужен форум, чтобы решать возникающие вопросы.
"Спасибо" достаточно )

[4ERRY]

да не просто спасибо а огромное СПАСИБО ВСЕМ)))))))))))))))))