Выпишу только высказывания.
1)
Число 6 - четно (Истинно)
Все роботы - машины (Истинно)
У каждой лошади есть хвост (Истинно)
Есть кошки, которые дружат с собаками (Истинно)
Всякий моряк умеет плавать (Ложь)
2)
Ложь
Истина
Истина
Истина
Истина
Истина
Истина
Истина
Var a:array[1..100] of integer;
i,n,max,min:integer;
begin
writeln('Skolko elementov');
readln(n);
for i:=1 to n do begin write('a[',i,']='); read(a[i]); end;
max:=a[1]; min:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]<min then min:=a[i];
writeln('Max - Min =' ,max-min);
<span>end.</span>
<span>Балкон имеет пол из дерева,пластиковые окна,и крышу из шифера.</span>
Б) 8: 5 братьев и 3 сестры
в) да, если маляры - девушки (сёстры)