ответ:
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.