Умоляю
1) определи вид отношения.

стиральная машина - это бытовая техника.
бинарное
тринарное
2) сколько в предъявленной базе данных текстовых полей?

1.комбинация компьютерных инструкций и данных, позволяющая аппаратному обеспечению вычислительной системы выполнять вычисления или функции управления

2. программа или множество программ, используемых для управления компьютером.

3.на: - системное ПО; - прикладное ПО; - системы программирования.

4. программа, предназначенная для выполнения определённых задач и рассчитанная на непосредственное взаимодействие с пользователем.

5. комплекс взаимосвязанных программ, предназначенных для управления ресурсами компьютера и организации взаимодействия с пользователем.

6. компьютерное программное обеспечение, с которого другое программное обеспечение получает доступ к аппаратному обеспечению некоторого устройства.

7.являются составной частью программ установленных вместе с операционной системой.

8. Windows (7,8,10), Linux и IOS

Объяснение: ---

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

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.