Удаление положительных элементов из списка, В Паскале абсолютный новичок Опции

[Cirille]

Нужно написать программу удаления из списка всех положительных элементов.

[мисс_граффити]

Ну напиши, раз нужно...
Что тут еще сказать?...

[Cirille]

Ну напиши, раз нужно...
Что тут еще сказать?...

А если скажу: ПОЖАЛУСТА напиши прогу удаления всех положительных элементов из списка.
Потому что в Паскале я полный ноль.

[2ral]

А список Вы сами должны ввести или наугад?
И скажите, пожалуйста, должны ли Вы вводить величину списка?

[Cirille]

А список Вы сами должны ввести или наугад?
И скажите, пожалуйста, должны ли Вы вводить величину списка?

Программа сама должна составить список наугад. А вот вводить или нет величину списка, это без разницы, как будет легче.

[2ral]

Эта программа читает количество значениы в массиве, а потом и значения. Потом же,
она перекладывает все отрицательные значемия значени в другой.

 
uses crt;
const
 Na=1000;
var
 a,b,c,d,n,i,j,k:integer;
 ar,ar1:array[1..Na] of integer;
begin
 clrscr;
 readln(n);
 for i:=1 to n do
  readln(ar[i]);
 for i:=1 to n do
  if ar[i]<0 then
   begin
    inc(j);
    ar1[j]:=ar[i];
   end;
 for i:=1 to j do
  write(ar1[i]:4);
end.

[volvo]

Это - не список, простите... Это массив... Список - это Динамическая Структура Данных... См. здесь:
Все о динамических структурах данных.

[2ral]

Можно сделать так для того что бы программа цама входила значения.

uses crt;
const
 Na=1000;
var
 a,b,c,d,n,i,j,k:integer;
 ar,ar1:array[1..Na] of integer;
begin
 clrscr;
 readln(n);
 for i:=1 to n do
  begin
   ar[i]:=random(100);
   ar[i:=ar[i]-1;
  end;
 for i:=1 to n do
  if ar[i]<0 then
   begin
    inc(j);
    ar1[j]:=ar[i];
   end;
 for i:=1 to j do
  write(ar1[i]:4);
end.

[2ral]

Это - не список, простите... Это массив... Список - это Динамическая Структура Данных... См. здесь:
Все о динамических структурах данных.

Простите, но ведь строки, как я знаю, тоже что и массивы только их значения, в отличие от них, разных типов.

Сообщение отредактировано: 2ral - 18.05.2007 13:05

[Гость]

При запуске программы ни чего не происходит, только чёрный экран. Она не составляет список, тогда я сам ввожу полож. и отриц. цифры и при нажатии на Enter она вылетает, в обоих случаях.

[Sto]

Мне кажется она не вылетает, а просто завершает свою работу.
Перед последней строкой добавь ReadLn;.

[Cirille]

Спасибо всем кто помог сделать задачу, особенно 2Ral.