Две задачи на массивы (формирование нового массива и перестановка в массиве) (pascal abc)

[antony sky]

Нужна помощь в двух задачах pascal abc.Помогите пожалуйста
1.Дан одномерный массив, который содержит не более 40 вещественных чисел. Составить новый массив, элементами которого будут отрицательные числа старого массива.
2.Дан одномерный массив, который содержит не более 60 вещественных чисел, среди которых есть положительные, отрицательные и нули. Переставить элементы массива так, чтобы сначала шли нули, потом отрицательные, а затем положительные элементы массива.

______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
В последующем, темы с названием наподобие "Pascal ABC" будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[rus12]

1)

const
n=40;
type
massiv=array[1..n] of real;
var
a,b:massiv;
i,s:integer;
begin
 randomize;
  for i:= 1 to n do
    begin
      a[i]:=random(100)-20;
    end;
  for i:= 1 to n do
    begin
       write(a[i]:1:2);
       write('   ');
    end;
 writeln(' novie massiv--------------');
  for i:= 1 to n do
       if a[i]<0 then
        begin
         b[i]:=a[i]; 
        write(b[i]:1:2);
         write(' ');
        end;
readln;
end.

2)

const
n=60;
type
massiv=array[1..n] of real;
var
a:massiv;
i:integer;
begin
 randomize;
  for i:= 1 to n do
    begin
      a[i]:=random(100)-20;
    end;
  for i:= 1 to n do
    begin
       write(a[i]:1:2);
       write('   ');
    end;
 writeln(' novie massiv--------------');
  for i:= 1 to n do
    if (a[i]=0) then
      begin
        write(a[i]:1:2);
        write(' ');
      end;
  for i:= 1 to n do
     if  (a[i]<0) then
       begin
         write(a[i]:1:2);
         write(' ');
       end;
  for i:= 1 to n do
      if  (a[i]>0) then
        begin
          write(a[i]:1:2);
          write(' ');
        end;
readln;
end.

[Mad_Cat]

Рус12 ты специально фигню пишешь? Нужно именно создавать массивы и переставлять элементы а не выводить их

[rus12]

Не нравится пиши свой вариант, а не тупо комментируй то что написано.

[Mad_Cat]

пиши свой вариант

Легко! по 1$ за задачку напишу)

[rus12]

Сообщение от Mad_Cat

по 1$ за задачку напишу)

Тогда я не пойму какие притензии у вас ко мне.

[Serge_Bliznykov]

rus12

Сообщение от rus12

Тогда я не пойму какие притензии у вас ко мне

да никаких!

Просто оба ваших решения НЕПРАВИЛЬНЫЕ.

а претензий к Вам никаких нет...

[rus12]

2 задача чем неправильная? Там просто нужно переставить элементы массива.

[Serge_Bliznykov]

2 задача чем неправильная? Там просто нужно переставить элементы массива.

Точно. Ткните в строчку, где вы ПЕРЕСТАВЛЯЕТЕ элементы массива!
Поймите, что вывод элементов массива в другом порядке на экран НЕ ИЗМЕНЯЕТ порядок элементов в исходном массиве.
И у Вас массив остаётся такой же, как и был...