Лабы+Курсовик / Laba2

program l2;
uses crt;
const n=50;
var
k,i,j,t,p:integer;
a:array[1..n] of integer;
  begin
   clrscr;
   writeln('Vvedite dlinu masssiva:');
   readln(p);
   writeln('Vvedite sam massiv');
      for i:=1 to p do
      begin
        readln(a[i]);
      end;
      writeln('eto vash isxodniy massiv');
        for i:=1 to p do
          write(a[i],' ');
        for i:=1 to n do
         for j:=p-i downto 1 do
           if a[j]=0 then
           begin
             t:=a[j+1];
             a[j+1]:=0;
             a[j]:=t;
          end;
        writeln('');
        writeln('on je, no zapisan s ysloviem zadachi:');
        for i:=1 to p do write(a[i],' ');

readkey;
end.