Объяснение:
Для начала разберемся в основной конструкции:
if(...) then ... else...
которая обозначает:
1)если(if) (выполняются заданные условия),
2) то(then) выполняется что-то ,
3) иначе(else) выполняется что-то другое.
В данных примерах а = 18; b=-15; p=true (правда) (по условию)
а) if (a>b) then x:=1 else x:=4
если (а>b), тo x =1, иначе х=4
подставляя значения из условия получаем, что 18 > -15 ? = да, следовательно х=1b)if a<b then x:=15 else x:=–21
если (а<b) то х=15; иначе х=-21
18<-15 ? = нет, следовательно х=-21с)if p then x:=32 else x:=638;
если (р), то х=32 иначе х=638
true? = да, следовательно х=32d)if not p then x:=0 else x:=1;
если (не р ), то х=0, иначе х=1
не р = не true = false? = нет, следовательно х=1е)if (a<b) and p then x:=–1 else x:=1
если (а<b) и р, то х=-1 иначе х=1
18<-15? = нет(или false), (18<-15) and true= false and true = false?— нет, следовательно, х=1f)if (a>b) or p then x:=–6 else x:=–5;
если (а>b) или р, то х=-6 иначе х=-5
(18>-15)? = да(или true), (18>-15)or true = true or true = true ? = да, следовательно, х=-6g)if not (a>b) then x:=19 else x:=–2;
если НЕ(а>b), то х=19, иначе х=-2
(18>-15)?=да(или true), NOT(18>-15)= NOT(true)= false?=нет, следовательно х=-2h) if (a=b) or p then x:=89 else x:=–15.
если (а=b) или р то х=89 иначе х=-15
(18=-15)?=нет(или false), (18=-15)or true = false or true = true ? = да, следовательно х=89
const n = 6;
var a : array[1..n] of integer;
i, max, min, temp : integer;
begin
for i := 1 to n do readln(a[i]);
min := 1;
max := 1;
for i := 1 to n do
begin
if a[i] > a[max] then max := i;
if a[i] < a[min] then min := i;
end;
temp := a[max];
a[max] := a[min];
a[min] := temp;
for i := 1 to n do write(a[i],' ');
end.