Если тут нужна программа.
Объяснение:
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
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.
Если тут нужна программа.
Объяснение:
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.