Цитата:
Сообщение от Ксения)777)
Цикл:Дана последовательность, состоящая из n вещественных чисел. Опре-делить является ли она возрастающей или убывающей.
|
Код:
var
a:array [1..1000] of real;
n,i:integer;
begin
write ('n=');
readln(n);
for i:=1 to n do begin
write ('a[',i,']=');
readln (a[i]);
end;
i:=2;
while i<=n do begin
if a[i-1]>a[i] then begin
writeln ('Не возрастающая');
break;
end;
inc(i);
end;
if i=n+1 then writeln ('Возрастающая');
readln
end.