Дан массив целых чисел, содержащих 20 элементов, записать в этот же массив сначала все отрицательные числа и нули - Pascal - Ответ 13288321

program Element20;
 
type
  mass = array [1..20] of integer;
var
  c: mass;
  c1: mass;
procedure EnterArr(var a:mass);  // Процедура для ввода чисел в массив
var
  i,d:integer;
begin
  for i:=1 to 20 do
  begin
    Writeln('Enter value of element ',i);
    ReadLn(d);
    a[i]:=d;
  end;
end;
 
procedure OutToEkranArr(a1: mass);  //Процедура для вывода элементов массива на экран.
var
  i: integer;
begin
  WriteLn('Arrey');
  WriteLn();
  for i:=1 to 20 do
    Write(a1[i],' ');
  writeln();
end;
 
procedure UnsortArr(a2:mass; var a5: mass); // Процедура которая сортирует числа внутри массива.
var
  a3,a4: array[1..20] of integer;
  i,j,k,p:integer;
begin
  for i:=1 to 20 do // Очищаем массивы от мусора.
    begin
      a3[i]:=0;
      a4[i]:=0;
    end;
  j:=1;
  k:=1;
  for i:=1 to 20 do  // Разделяем числа на отрицательные, нулевые и положительные.
  if a2[i] <= 0 then
    begin // Записываем отрицательные числа и нулевые числа в промежуточный массив.
    a3[j]:=a2[i];
    j:=j+1;
    end
    else
       begin // Записываем положительные числа в промежуточный массив.
       a4[k]:=a2[i];
       k:=k+1;
       end;
 
   i:=1;
   while a4[i] > 0 do // Узнаем индекс последнего элемента с положительным числом.
      i:=i+1;
 
   for k:=1 to 20 do // Дописываем положительные числа в конец промежуточного массива.
   begin
   p:=k+21-i;
   if p<=20 then
   a3[p]:=a4[k];
   end;
   a5:=a3;
end;
 
begin
  EnterArr(c);
  OutToEkranArr(c);
  UnsortArr(c,c1);
  OutToEkranArr(c1);
  readln();
end.