• Дан массив. Проверить чередуются ли в нем четные и нечетные числа.(Паскаль)

Ответы 1

  • var a:array[1..1000] of longint; n,i,k:longint;begin readln(n); for i:=1 to n do read(a[i]); if odd(a[1]) then k:=1 else k:=2; for i:=2 to n do begin  if (odd(a[i]))and(k=1) then  begin   writeln('No');   halt;  end;  if (not odd(a[i]))and(k=2) then  begin   writeln('No');   halt;  end;  if k=1 then k:=2 else k:=1; end; writeln('Yes');end.
    • Автор:

      boots36
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years