Массивы, Массивы Опции

[Flare]

Задача : Из чисел a1,a2,...,an (1,2,..,n - нижний индекс) выбрать те, которые больше заданного числа с и образовать из них новый массив, сохранив порядок следования элементов.
Начало сделала, а вот со второй частью условия возникли проблемы.. подскажите, пожалуйста,как вывести массив, сохранив порядок следования.. заранее огромное спасибо!!!

uses crt;
const
n=100;
var
a:array[1..n] of real;
i,n1,c:real;
begin
write('введите размерность:');
readln(n1);
write('введите значение c:');
readln©;
for i:=1 to n1 do
                      begin
                         write('a[',i,']=');
                         readln(a[i]);
                      end;
for i:=1 to n1 do
 if a[i]<c then writeln(a[i]);

[volvo]

Flare, ну, допустим, начало тоже не совсем верно: ты выбираешь элементы, которые МЕНЬШЕ заданного числа С...

uses crt;
const
  n = 100;
var
  a, b:array[1..n] of real;
  c: real;
  i, n1, count: integer; { n1 должен быть целого типа, иначе будет ошибка }
begin
  write('введите размерность: '); readln(n1);
  write('введите значение c: '); readln( c );
  for i:=1 to n1 do begin
    write('a[',i,']='); readln(a[i]);
  end;

  count := 0;
  for i:=1 to n1 do
    if a[i] > C then begin
      inc(count); b[count] := a[i];
    end;

  { и распечатываем новый массив }
  for i := 1 to count do
    write(b[i]:10:5);
  writeln;

end.

[Guest]

Volvo, спасибо огромное!!!!!!!!!!
только не мог бы ты мне объяснить, что за оператор

inc(count)

? спасибо.. ))

[volvo]

inc(count);

то же самое что

count := count + 1;

[Flare]

СПАСИБО!!!!!!!!

[HeX]

А нам говорили что вводить новый массив без веской причины ето большой минус!!!

[volvo]

HeX, а нам говорили, что НЕ читать внимательно задание - это ОЧЕНЬ большой минус:

Из чисел a1,a2,...,an (1,2,..,n - нижний индекс) выбрать те, которые больше заданного числа с и образовать из них новый массив, сохранив порядок следования элементов.