Лабы+Курсовик / Посохов / Lab002

{ ЏҐаҐбв ўЁвм §­ зҐ­Ёп н«Ґ¬Ґ­в®ў § ¤ ­­ле ®¤­®¬Ґа­л¬ ¬ ббЁў®¬ в Є,
зв®Ўл ўбҐ ­г«ҐўлҐ §­ зҐ­Ёп ®Є § «Ёбм ў Є®­жҐ ¬ ббЁў ,   ­Ґ­г«ҐўлҐ
ў ­ з «Ґ, ­Ґ ­ аги п ЇаЁ н⮬ Ї®ап¤Є , ў Є®в®а®¬ ®­Ё б«Ґ¤гов ў ¬ ббЁўҐ.}
Program Massiv;
Uses Crt; {Ї®¤Є«о祭ЁҐ ¬®¤г«Ґ©}
Const N=20; {¬ ЄбЁ¬ «м­л© а §¬Ґа ¬ ваЁжл}
Type TP=Array[1..N] of Integer;
Var A:TP;
{****************************************************************************}
Procedure Vvod;
Var I:Byte;
BEGIN
Randomize;
For I:=1 to N do A[I]:=Random(31)-15;
END;
{****************************************************************************}
Procedure Vivod;
Var I:Byte;
BEGIN
WriteLn('‚лў®¤ ¬ ббЁў  Ђ(',N,'):');
For I:=1 to N do Write(A[I]:4)
END;
{****************************************************************************}
Procedure Sort;
Var I,J:Byte;
BEGIN
For I:=1 to N do If A[I]=0 Then Begin
For J:=I DownTo 1 do A[J]:=A[J-1];
A[1]:=0;
End
END;
{****************************************************************************}
BEGIN
ClrScr;
Vvod;
Vivod;
Sort;
Vivod;
ReadKey;
END.