// PascalABC.NET 3.3, сборка 1573 от 04.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(20,-99,99); a.Println; var (imin,imax):=(a.IndexMin,a.IndexMax); Writeln('Минимальный элемент ',a[imin],', максимальный ',a[imax]); Swap(a[imin],a[imax]); a.Println; // меняем местами max и min Swap(a[0],a[a.Length-1]); a.Println // меняем местами крайние end.
S:=5;
K:=S+10=5+10=15;
K:=S+K=5+15=20;
S:=2*K=2*20=40;
ответ: б)40