Регистрация
Xaker567
06.06.2023 03:57
Информатика
Есть ответ 👍

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

215
266
Посмотреть ответы 3

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

dashkin678
dashkin678
4,7(92 оценок)
Привет ты тоже не знаешь информатику
maxon23
maxon23
4,8(62 оценок)

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.

anutakapanadze
anutakapanadze
4,7(85 оценок)
Если идёт дождь, то будет мокро (слякотно). если у животного есть хобот, то он слон.

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