Лабы / Pascal.1.курс / part 1 / LABA2 / VAR23 / IO

unit io;
interface
         uses crt,global;
         procedure inp(var a:tar);
         procedure outp(var b:tar);

implementation
         procedure inp(var a:tar);
         var i,v1,v2:integer;
         begin
              randomize;
              for i:=1 to n do
                  begin
                       v1:=random(100);
                       v2:=random(3);
                       if v2=2 then a[i]:=v1*(-1)
                       else a[i]:=v1;
                       textcolor(white);
                       write(a[i],' ');
                    end;
              writeln;
              readln;
         end;

         procedure outp(var b:tar);
         var i:integer;
         begin
              textcolor(red);
              for i:=1 to n do
                  begin
                       delay(5000);
                       write(b[i],' ');
                  end;
         end;
end.