Даны значения ячеек А1:В5, а также ячеек В7: В9.
Найти значение ячейки G1.
В ячейку С1 помещена формула: =ЕСЛИ(СРЗНАЧ(A1:B1)<=5;B1*$B$7;ЕСЛИ(И(B1>5;B1<=10);B1*$B$8;B1*$B$9))
В ячейку E1 помещена формула: =ЕСЛИ(C1>=15;1;0)
В ячейку F1 помещена формула: =СУММ(E1:E5)
В ячейку G1 помещена формула : =ЕСЛИ($F$1/2=ЦЕЛОЕ($F$1/2);СУММ(C1:C3);СУММ(С3:С5))
​

//Визуально разделил циклы, чтобы было более читаемо 

var ar:array[1..10] of integer;
max,i:integer;
begin;
randomize; //чтобы random() работал как надо
writeln('Array');

for i:=1 to 10 do
begin;
ar[i]:=random(-10,10); //случайное число от -10 до 10
write(ar[i]:4);
end;

for i:=1 to 10 do //"проходим" через весь массив
if (ar[i]<0) and (max<abs(ar[i])) then max:=abs(ar[i]);
{если элемент массива меньше нуля и его модуль больше максимума тогда записать модуль этого числа в максимум}

writeln;
writeln('Max:-',max); //выводим на всякий случай максимум

writeln('Final array:');
for i:=1 to 10 do //снова проходим по всему массиву
begin;
if ar[i]=-max then ar[i]:=0; 
{если элемент равен отрицательному максимуму(мы брали модуль) присвоить ему 0}
write(ar[i]:4);
end;
end.

БВГА

Объяснение:

18  4.2  26.73  .62

под бук­вой А мы видим «.62». Число, на ко­то­рое ука­зы­ва­ет этот фраг­мент, на­чи­на­ет­ся с 62. Так как числа в IP-ад­ре­се не могут быть боль­ше 255, мы не можем до­ба­вить в конце этого числа еще один раз­ряд, а фраг­мен­тов, на­чи­на­ю­щих­ся с точки, боль­ше нет, сле­до­ва­тель­но, этот фраг­мент – по­след­ний.

По­смот­рим на фраг­мент под бук­вой Б. В нем стоит число без точек, зна­чит, это либо по­след­ний фраг­мент, либо пер­вый. Место по­след­не­го фраг­мен­та уже за­ня­то, зна­чит, фраг­мент Б на пер­вом месте.

В конце фраг­мен­та Г - число 73, от­де­лен­ное точ­кой. Так как в IP-ад­ре­се не может быть числа, боль­ше­го 255, то за фраг­мен­том Г дол­жен сле­до­вать фраг­мент, на­чи­на­ю­щий­ся с точки. Зна­чит, фраг­мент Г идет перед фраг­мен­том А.