Const
K = 7;
Var
A:array[1..K] of integer;
i,n:integer;
Begin
For i:= 1 to K do
Begin
A[i]:=random(1001);
Write(A[i],' ');
End;
WriteLn;
n:=1;
For i:= 2 to K-1 do
if A[i]*A[i+1]>A[n]*A[n+1] then n:=i;
WriteLn(n,' и ',n+1)
End.
8) 1 (т.к в скобках везде идет сложение)
9) 1 (т.к в конце, не в зависимости от результата плюсуем единицу)
10) Сначала делаем конъюкцию , потом дезъюнкицю, следовательно A*0 = 0, 1+0 = 1, ответ 1