Дана последовательность действительных чисел A1,A2,..., An. Выяснить, будет ли она возрастающей.
Дана последовательность действительных чисел A1,A2,..., An. Выяснить, будет ли она возрастающей.
Гость
Ответ(ы) на вопрос:
Гостьvar n,i,d:integer;
mass:array[1..20] of integer;
begin
read(n);
for i:=1 to n do
read(mass[i]);
for i:=1 to n-1 do
if mass[i+1]-mass[i]>0 then
begin
writeln('Возрастающая');
exit;
end else begin
writeln('Не возрастающая');
exit;
end;
end.
Не нашли ответ?
Похожие вопросы