Изучение языка программирования
Турбо Паскаль (Turbo Pascal)

На этом сайте можно: скачать среду программирвания Турбо Паскаль, изучить язык программирования Турбо Паскаль, а так же скачать программы на языке Турбо Паскаль!
Решенные задачи на языке Паскаль



Условие задачи прислали на e-mail.

Массив Х, состоящий из положительных и отрицательных элементов. Сформировать новый массив Y из элементов массива Х, в котором вначале стоят все отрицательные элементы, за ними - нулевые, за ними - все положительные. Порядок следования сохранить.

var
x,y:array[1..8]of integer;  {два массива                                  }
i,j:integer;                {i - для цикла, j - номер элемента в массиве y}
BEGIN
 {загружаем массив x положительными и отрицательными числами}
 randomize;
 for i:=1 to 8 do x[i]:=random(9)-random(9);

 writeln('Исходный массив X:');
 for i:=1 to 8 do write('  ',x[i]);
 writeln;

 j:=0;
 for i:=1 to 8 do if x[i]<0 then  {находим отрицательные числа в массиве x}
  begin
   inc(j);                        {нашли, и                               }
   y[j]:=x[i];                    {записываем число в массив y            }
  end;

 for i:=1 to 8 do if x[i]=0 then  {находим числа равные нулю              }
  begin
   inc(j);
   y[j]:=x[i];
  end;

 for i:=1 to 8 do if x[i]>0 then  {находим положительные числа            }
  begin
   inc(j);
   y[j]:=x[i];
  end;

 writeln('Новый массив Y:');
 for i:=1 to 8 do write('  ',y[i]);

 readln;
END.