Регистрация
Renavalion
23.02.2020 16:16
Информатика
Есть ответ 👍

Pascal ! дана последовательность натуральных чисел, завершающаяся число 0. определите наибольшую длину монотонного фрагмента последовательности (то есть такого фрагмента, где все элементы либо больше предыдущего, либо меньше). числа, следующие за числом 0, считывать не нужно.

278
286
Посмотреть ответы 2

Ответы на вопрос:

gulua1
gulua1
4,7(56 оценок)
Var a,b,k,max: byte; begin max: =1; read(a); b: =a; repeat if a> b then     begin     if k> max then max: =k;     k: =1;     while (a> b)and(a> 0) do           begin           k: =k+1;           b: =a;           read(a);           end;     end; if a< b then     begin     if k> max then max: =k;     k: =1;     while (a< b)and(a> 0) do           begin           k: =k+1;           b: =a;           read(a);           end;     end; if a=b then     begin     if k> max then max: =k;     k: =1;     b: =a;     read(a);     end; until a=0; if k> max then write(k) else write(max) end.
peatkina1106200
peatkina1106200
4,5(67 оценок)
Алг нач цел a,b,c,sum  ввод a,b,c если a> b то если c> b то sum: =a+c иначе sum: =a+b все иначе если c> a то sum: =b+c иначе sum: =b+a все все вывод sum кон

Популярно: Информатика