Ответы на вопрос:
Если тут нужна программа.
Объяснение:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var n,m,k,a,max:integer;
begin
clrscr;
n:=1; a:=0;
min:=-32700;
While n<>0 do
begin
write('Введите число'); read(n); writeln(n); m:=n;
If min<m then begin k:=0; max:=m end else begin k:=1; a:=k; end;
end;
readln;
If a=1 then Writeln('Последовательность не возрастающая')
else
writeln('Последовательность возрастающая');
readln
end.
Популярно: Информатика
-
damama13.11.2022 07:36
-
ostapenkonatasha10.04.2021 00:47
-
Yaroslavdonskk18.09.2021 19:04
-
olesay1234521.01.2022 13:17
-
НикаНетУбежал12.01.2022 06:04
-
clydeofficial05.01.2022 23:29
-
аниметян330.05.2022 21:56
-
манукостуй14.04.2023 15:04
-
аяука1008.05.2020 20:01
-
HelpMePleaseaaaaa27.07.2022 08:56