1) пусть первое утверждение истинно.
НЕ походит, так как в этом случае:
второе ложно
третье - истинно.
2) пусть второе истинно и пальм <2017.
первое ложно
третье ложно ( если пальм нет =0<2017)
3) пусть третье истинно, но тогда истинно и первое утверждение.
---------------------------------------------------------
Вывод: количество пальм = 0.
При вводе текста : 1,2 и 4
Верно ли записан текст: верно
Для перемещения в начало: ctrl page up
Сколько начертаний: ф ы в а
Const
K = 3;
N = 4;
Var
A:array[1..K,1..N] of integer;
Max,Min,i,j:integer;
Begin
For i:= 1 to K do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
Max:=A[K,N];
Min:=A[K,N];
For i:= 1 to K do
For j:= 1 to N do
Begin
if Max<A[i,j] then Max:=A[i,j];
if Min>A[i,j] then Min:=A[i,j]
End;
WriteLn('Min = ',Min);
WriteLn('Max = ',Max);
End.
Пример:
-3 -2 5 -8
2 -3 7 5
-10 -2 7 4
Min = -10
Max = 7
<u><em>Я думаю, что программа может управлять работой компьютера, если она находится в оперативной системе!</em></u>Надеюсь, что помогла:з