Есть ответ 👍

Составить программу, проверяющую, является ли последовательность из 10 целых чисел, вводимых с клавиатуры, возрастающей

251
263
Посмотреть ответы 2

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


Var a1,b2,c,d: integer; begin write('введите числа через пробел: '); read(a1); for d: =2 to 10 do begin read(b2); if b2> a1 then inc(c); a1: =b2; end; if c=9 then writeln('да') else  writeln('нет'); end.
ylmor228l
4,6(70 оценок)

Наверное собираем. не уверена

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