• Дана последовательность действительных чисел. Выяснить, будет ли она возрастающей Turbo Pascal

Ответы 1

  • vara : array [1..10] of integer;i,j : integer;f : boolean;beginf := true;for i := 1 to 10 do readln(a);for i := 1 to 9 doif a > a[i+1]thenbegin f := false; break;endif f then writeln('da') else writeln('net');readln;end .
    • Автор:

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

Войти через Google

или

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

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

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