1) Дана последовательность из N элементов (N вводится с клавиатуры). Является ли эта последовательность возрастающей?
2)Найти разницу между максимальным и минимальным числом последовательности.
2)Найти разницу между максимальным и минимальным числом последовательности.
More Questions From This User See All
Answers & Comments
i,max,min,flag,a,b,n:integer;
begin
read(n);
flag:=0;
for i:=1 to n do
begin
read(a);
if i=1 then
begin
max:=a;
min:=a;
end
else
begin
if a>max then
max:=a;
if min>a then
min:=a;
if b>a then
flag:=1;
b:=a;
end;
end;
if flag=0 then
writeln('Yes')
else
writeln('No');
writeln(max-min);
end.