Заполнить одномерный массив случайными целыми числами. Найти фрагмент массива максимальной длины, элементы - id2073794320210422 от Sobolev43 22.04.2021 02:29

Question

Информатика: Заполнить одномерный массив случайными целыми числами. Найти фрагмент массива максимальной длины, элементы которого монотонно возрастают или убывают. Вывести фрагмент на консоль с указанием вида монотонности. Пример массива: 54 23 87 12 27 27 59 73 33 15 3 Фрагмент: 12 27 27 59 73 - монотонно возрастающий

Sobolev43 · Accepted Answer

Var a: byte; b:integer; Begin  writeln( Введите день месяца ); readln(b); writeln( Введите номер месяца );    Readln(a);               Case a of         1: writeln(b, янавря );         2: writeln(b, февраля );       3: writeln(b, марта );         4: writeln(b, апреля );       5: writeln(b, мая );       6: writeln(b, июня );         7: writeln(b, июля );        8: writeln(b, августа );      9: writeln(b, сентября );      10: writeln(b, октября );      11: writeln(b, ноября );        12: writeln(b,...

MOGZ ответил