1) Дана последовательность из N элементов (N вводится с клавиатуры). Является ли эта последовательность возрастающей?
2)Найти разницу между максимальным и минимальным числом последовательности.

Ответы (1)

Владимр 25.02.2025 1
Var
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.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ