Дан одномерный массив, содержащий 20 целочисленных элементов. Найти максимальный и минимальный элементы. а) поменять местами мак
Дан одномерный массив, содержащий 20 целочисленных элементов. Найти максимальный и минимальный элементы. а) поменять местами максимальный и минимальный элементы; б) поменять местами первый и последний элементы. Задачу решать на языке Pascal.
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
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.
На экране появится квадрат. Черепашка проходит 45 шагов вперед, поворачивается на 90 градусов, опять проходит 45 шагов, опять поворачивает... И так 180 раз.