Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы+курсовик(1) / Посохов / Lab002
.pas { ЏҐаҐбв ўЁвм § 票п н«Ґ¬Ґв®ў § ¤ ле ®¤®¬Ґал¬ ¬ ббЁў®¬ в Є,
зв®Ўл ўбҐ г«ҐўлҐ § зҐЁп ®Є § «Ёбм ў Є®жҐ ¬ ббЁў , Ґг«ҐўлҐ
ў з «Ґ, Ґ аги п ЇаЁ н⮬ Ї®ап¤Є , ў Є®в®а®¬ ®Ё б«Ґ¤гов ў ¬ ббЁўҐ.}
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.
зв®Ўл ўбҐ г«ҐўлҐ § зҐЁп ®Є § «Ёбм ў Є®жҐ ¬ ббЁў , Ґг«ҐўлҐ
ў з «Ґ, Ґ аги п ЇаЁ н⮬ Ї®ап¤Є , ў Є®в®а®¬ ®Ё б«Ґ¤гов ў ¬ ббЁўҐ.}
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.
Соседние файлы в папке Посохов