Лабы+курсовик(1) / 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.