• Помогите сделать) Удалить первый элемент массива кратный 3.

Ответы 6

  • ОН ЗАЦИКЛИЛСЯ!
    • Автор:

      benson
    • 5 лет назад
    • 0
  • WTF
  • у меня вроде работает PascalABC.Net
    • Автор:

      lucian
    • 5 лет назад
    • 0
  • И даже если подходящего элемента нет, то он выходит из while
    • Автор:

      brooklynn
    • 5 лет назад
    • 0
  • оу. а у меня Турбо паскаль
  • const     n = 10; var   a : array [1..n] of integer;   i,m : integer;      begin  for i := 1 to n do //При формировании забил   a[i] := i;               //просто индексы  m := 0;   i := 1; while (m = 0) and (i<=n) do     begin      if a[i] mod 3 = 0 then       begin        a[i] := 0;        m := 1;       end ;      i := i +1;     end;    for i := 1 to n do    writeln (a[i]);   end. 
    • Автор:

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

Войти через Google

или

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

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

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