Таблица истинности - в прилагаемом файле.
Но можно вспомнить один из законов логики (закон поглощения X ∨ X∧Y = X), то получится (A^B)^ĈvB ⇒ B^(A^Ĉ) v B ⇒ B. И таблица уже не нужна будет.
Программы на Паскале прилагаются.
Программа находит значение переменной
s:=s+15
for k:=1 to 6 - 6 шагов
при каждом шаге к значению прибавляется 15,за 6 шагов прибавится 15*6=90
это число и выводится программой
Ответ: 90
//PascalABC.Net 3.0, сборка 1064
const
n=20;
var
a:array[1..n] of integer;
i,imax,imin:integer;
s:longint;
begin
Randomize;
Writeln('Исходный ряд значений');
imax:=1; imin:=1;
for i:=1 to n do begin
a[i]:=Random(51)-25; Write(a[i],' ');
if a[i]>a[imax] then imax:=i
else
if a[i]<a[imin] then imin:=i
end;
Writeln;
if imax>imin then
Writeln('Максимальный элемент встретился позже минимального')
else begin
s:=0;
for i:=imax+1 to imin-1 do s:=s+a[i];
Writeln('Сумма элементов между максимальным и минимальным значением ',s)
end
end.
<em><u>Тестовое решение:</u></em>
Исходный ряд значений
10 -3 9 5 20 10 6 2 -19 -19 6 -24 -7 -1 23 11 -8 -16 -14 -25
Сумма элементов между максимальным и минимальным значением -27