Принтер

[Виталий]

Куплю принтер струйный EPSON STYLUS COLOR 3000 A2

[Паша86]

Продаю EPSON STYLUS С42S(струйник). Дешево!!

[nnnn]

Program Massive1;
  type mas=array [0..70] of integer;

  var x,y:mas;
     g:integer;
     i:integer;
   procedure opis (var a:mas);
    var i:integer;
    begin
     for i:=1 to 70 do begin
     a:=random (50);
     write(a,' ');end;writeln;
     end;
begin randomize;
      opis(x);g:=1;
      for i:=1 to 70 do
      if (x<=1) and (x>=-1) then begin y[g]:=x;g:=g 1 end;
      for i:=1 to g do write(y,' ');writeln;
      writeln ('g=',g);
      readln;
      end.