Версия для печати темы

Автор: Flare 27.11.2005 16:49

Задача : Из чисел 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 27.11.2005 17:01

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 27.11.2005 17:33

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

inc(count)

Автор: volvo 27.11.2005 17:34

inc(count);

count := count + 1;

Автор: Flare 27.11.2005 17:39

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

Автор: HeX 27.11.2005 21:42

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

Автор: volvo 27.11.2005 21:44

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