Регистрация
pactuwka2
20.08.2022 19:39
Информатика
Есть ответ 👍

ЭТО СОР ПОСЛЕДНЕЕ ЗАДАНИЕ ЧЕРЕЗ 10 МИНУТ СДОВАТЬ​

230
453
Посмотреть ответы 3

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

elag
elag
4,4(75 оценок)

3

4

7

2

5

1

6

makon3
makon3
4,8(20 оценок)

3, 4, 7, 2, 5, 1, 6

Объяснение:

Вроде так

Анонимчик8888
Анонимчик8888
4,4(67 оценок)
//pascal abc.net 3.1 сборка 1219 var   ai,n1,n2,i,k,max: integer; begin readln(ai); read(n1); max: =-1; k: =1; for i: =2 to ai do   begin   read(n2);   if n2> =n1 then     begin     inc(k);     n1: =n2;     end   else     begin     k: =1;     n1: =n2;     end;   if k> max then max: =k;   end; if max=-1 then writeln('1') else writeln(max); end. пример ввода: 6 2 2 1 3 4 1 пример вывода: 3

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