Просто 1, т.к А ∨ неА = 1 (тут за А можно взять всё х·у), а 1 ∨ неважночто = 1
можно конечно расписать все скобки по другим правилам, но ответ тот же будет
Объяснение:
Вариант 6
const
N = 10;
var
a: array[1..N] of integer;
i, max1, max2: byte;
begin
randomize;
for i:=1 to N do begin
a[i] := random(10);
write(a[i]:3);
end;
writeln;
max1 := 1;
for i:=2 to N do
if a[i] > a[max1] then
max1 := i;
if max1=1 then
max2 := 2
else
max2 := 1;
for i:=2 to N do
if i <> max1 then // чтобы пропустить max1
if a[i] > a[max2] then
max2 := i;
writeln(max1,' ', a[max1]);
writeln(max2,' ', a[max2]);
end.
Вариант 8 не получилось
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";
ПЕР
число: ЦЕЛ;
УКАЗ
число := Приём.Число();
ЕСЛИ число = 0 ТО Вывод.Цепь("^Ноль.") ИНАЧЕ
ЕСЛИ число < 0 ТО Вывод.Цепь("^Отрицательное ")
ИНАЧЕ Вывод.Цепь("^Положительное ") КОН;
ЕСЛИ ЧЕТ(число) ТО Вывод.Цепь("чётное число.")
ИНАЧЕ Вывод.Цепь("нечётное число.") КОН
КОН
КОН Задание.
<span>1. Информация.
2. Редактор.
3. Программа.
4. Меню.
5. Окно.
6. Сеть.
7. Почта
8. Память.
9. Обеспечение.</span>