• Help сделайте задание , на подобе такого , переделайте чутка пожалуйста

    question img
    question img

Ответы 6

  • а как его в этих 2 стоках заменить? if (a[j] < a[i]) then , if (a[i] mod 2 = 1) then
    • Автор:

      con0tlm
    • 6 лет назад
    • 0
  • читается так: Если(if) Логическое выражение верно, то(then)
    • Автор:

      minnie82
    • 6 лет назад
    • 0
  • Если сравнивать с жизнью ты предлагаешь мне, Из многоэтажного дома убрать 4й этаж
  • Да и зачем менять? У тебя на скриншоте точно такая же конструкция
  • хм.. простите, не видел.
    • Автор:

      hanson
    • 6 лет назад
    • 0
  • var  a: array[1..100] of integer;  n, i, j, tmp: integer;begin  Write('Введите количество чисел:');  Readln(n);  for i := 1 to n do  begin    a[i] := 2 + random(99);    if (a[i] mod 2 = 1) then      inc(a[i]);    write(a[i], ' ');  end;  Writeln();  for i := 1 to n do    for j := i to n do      if (a[j] < a[i]) then      begin        tmp := a[i];        a[i] := a[j];        a[j] := tmp;      end;  for i := 1 to n do    Write(a[i], ' ');end.
  • Добавить свой ответ

Войти через Google

или

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

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

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