• Дана последовательность 
    действительных чисел. Выяснить, будет ли она возрастающей (Паскаль) нужен листинг

Ответы 1

  • var a:array[1..10] of real;i:integer;b:boolean;beginb:=true;for i:=1 to 10 doread(a[i]);for i:=1 to 9 doif a[i]>a[i+1] then b:=false;writeln(b);end.
    • Автор:

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

Войти через Google

или

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

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

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