одномерный массив....

[malova]

Подскажите с задачкой....
Имеется одномерный массив. Намечатать только те числа из массива, которые образуют растущую последовательность.

То есть Пример: 241536859 ответ: 245689.
оставить только последовательность возрастающую

[Sazary]

Выводите первый элемент.
Дальше цикл. И будет еще один дополнительный счетчик (например, k). Изначально k=1. Если текущий элемент больше k-ого, то выводим его и k = индекс текущего элемента. Иначе пропускаем.

for i:=2 to n do
 if a[i]>=a[k] then
  begin
  write(a[i]:4);
  k := i;
  end;

[malova]

Получилась такая програмка, вроде правильная, НО! Не берет в расчет отрицательные числа, т.е. если задана последовательность -3 2 5 1, результат будет: 2 5. а надо : -3 2 5 .... Что не так?
program zad7;
uses crt;
var
a:array[1..10] of real;
i,n,k:integer;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
writeln;
For i:=1 to n do
if a[i]>a[k] then
begin
write(' ',a[i]:7:2);
k:=i;
end;
readln;
end.

[Sazary]

У вас k не проинициализировано.
И цикл по i от 2

program zad7;
uses crt;
var
a:array[1..10] of real;
i,n,k:integer;
begin
clrscr;
write('n=');
readln(n);
for i:=1 to n do
 begin
 write('a[',i,']= ');
 readln(a[i]);
 end;
writeln;
k := 1;
write(a[1]:7:2);
For i:=2 to n do
if a[i]>a[k] then
begin
write(' ',a[i]:7:2);
k:=i;
end;
readln;
end.