1. Дано действительное число х. Вычислить f(x), если

агроном- Специалист в области агрономии. 

брейк - А. Быстрое и резкое падение цен. 
Б. Денежная, торговая несбалансированность, при которой дебет не равен кредиту или имеет место значительное дебетовое или кредитовое сальдо. 

видеоклип- (от англ. clip - стричь - обрывать) , интерпретация эстрадной, поп- или рок-песни, как правило, сприменением ""дробного"" монтажа и специальных эффектов. Распространениесвязано с появлением в 80-х гг. 20 в. кабельных музыкальных телеканалов ирынка бытовой видеоаппаратуры и видеокассет. Используется в т. ч. врекламных целях. 

дюйм- 1. Единица длины в системе русских мер равная 1/28 аршина (в Российском государстве до 1918 г.) . 
2. Единица длины в системе английских мер, равная 1/12 фута (2,54 см) . 

жалюзи- Многостворчатые ставни или шторы из узких пластинок, связанных между собой, применяемые для регулирования светового и воздушного потока. 

камбала- Промысловая морская рыба плоской формы с глазами на одной стороне головы. 

мультипликация- 1. Киносъемка последовательных фаз движения рисованных или объемных фигур, в результате которой при показе на экране у зрителя создается иллюзия их движения. // Объект такой съемки. 
2. разг. Фильм, сделанный посредством такой съемки. 

пастила- Кондитерское изделие тестообразного вида из протертых, сваренных с сахаром фруктов (обычно сбиваемых с яичным белком) . 

универсальный- - 1. Охватывающий всё или многое; всеобъемлющий. 
2. Обладающий разными знаниями, навыками; разносторонний. 
3. Выполняющий разнообразные функции.

1)
program gt;
var a,b:array[1..100]of integer;
n,m,i:longint;
begin
Randomize;
a[5]:=-20;
for i:=1 to 8 do
begin
if(i<5)then a[i]:=random(101)+100;
if(i>4)then a[i+1]:=random(101)+100;
end;
for i:=1 to 9 do
begin
write(a[i],' ');
end;
end.
2)
program gt;
var a,b:array[1..100]of integer;
n,m,i,max:longint;
begin
Randomize;
max:=-20;
for i:=1 to 8 do
begin
a[i]:=random(101)+100;
if(a[i]>max)then max:=a[i];
end;
for i:=1 to 8 do
begin
if(a[i]<>max)then write(a[i],' ');
if(a[i]=max)then write(0,' ',a[i],' ');
end;
end.