Ребяяяят, помогите пожалуйста. ОЧЕНЬ СРОЧНО НУЖНО!!! Написать программу которая вводит последовательность вещественных чисел, состоящую их N элементов, и определяет, является ли эта последовательность возростающей.
Ребяяяят, помогите пожалуйста. ОЧЕНЬ СРОЧНО НУЖНО!!! Написать программу которая вводит последовательность вещественных чисел, состоящую их N элементов, и определяет, является ли эта последовательность возростающей.
Гость
Ответ(ы) на вопрос:
Гостьconst nn=100;
var
a:array [1..nn] of real;
i,n,k:integer;
begin
write('N= ');
readln(n);
for i:= 1 to n do readln(a[i]);
i:=1;k:=0;
while (k=0) and (ia[i+1] then k:=1;
i:=i+1;
end;
if k=0 then writeln('Последовательность возрастающая')
else writeln('Последовательность не возрастающая');
end.
Не нашли ответ?
Похожие вопросы