Program gt; var b:array[1..40]of integer; i:integer; begin randomize; for i:=1 to 40 do begin b[i]:=random(100); if(i<=10)then b[i]:=b[i]*3; write(b[i],' '); end; end. 2) задается с клавиатуры program gt; var b:array[1..40]of integer; i:integer; begin for i:=1 to 40 do begin read(b[i]); if(i<=10)then b[i]:=b[i]*3; end; for i:=1 to 40 do write(b[i],' '); end.