Два условия и два действия.
Второе условие вложенное, проверяется только если первое условие истинно.
Всего в данном фрагменте описаны 3 варианта поведения программы.
Вот код для qbasic'a SCREEN 12 cls LINE (200, 200)-(350, 400), , B LINE (200, 200)-(275, 100) LINE (275, 100)-(350, 200) CIRCLE (275, 160), 20 PAINT (275, 160) LINE (250, 250)-(300, 300), , B LINE (275, 250)-(275, 300) LINE (250, 270)-(300, 270) LINE (350, 400)-(355, 210), , B LINE (350, 210)-(370, 200), , B LINE (350, 400)-(400, 400) LINE -(400, 380) LINE -(380, 380) LINE -(380, 360) LINE -(355, 360) LINE (325, 165)-(325, 100) LINE -(310, 100) LINE -(310, 145)
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=15;
var a:=ArrRandom(n,-49,49); a.Println;
var b:=a.Select(t->2*t).ToArray; b.Println;
var max:=Range(3,n,3).Select(i->b[i-1]).Max;
Writeln('Искомый элемент: ',max)
end.
<u>Пример</u>
-39 -33 -3 -4 -49 -20 -48 -44 -13 -3 -13 6 -6 -20 17
-78 -66 -6 -8 -98 -40 -96 -88 -26 -6 -26 12 -12 -40 34
Искомый элемент: 34