|
Название: Принтер Отправлено: Виталий от 08 Октября 2004, 09:51 Куплю принтер струйный EPSON STYLUS COLOR 3000 A2
Название: Принтер Отправлено: Паша86 от 09 Ноября 2004, 19:26 Продаю EPSON STYLUS С42S(струйник). Дешево!!
Название: Принтер Отправлено: nnnn от 15 Декабря 2004, 15:28 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. |