Впаскале нужна программа, которая поменят два элемента первый и последний заранее ) от 1 до 20 9 класс

Не  помню как там с объявлением переменных, но если брать основную часть, то: begin a: =0; b: =mas[1]; max=0; for (int i: =1; i< =20; i: =i+1) { if  (mas[i]> max) { max: =mas[i]; a: =i; } mas[1]: =mas[a]; mas[a]: =b;

Var   arr: array[1..100] of integer;   i, n, min, max: integer; begin   min: =1;   max: =1;   readln(n);   for i: =1 to n do     begin     arr[i]: =random(100);     write(arr[i], ' ');       if arr[i]> arr[max] then max: =i;       if arr[i]< arr[min] then min: =i;     end;   writeln;   writeln('минимальный(', arr[min], '); максимальный(', arr[max], '); '); end .

// pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! begin   var (x,y,z): =readreal3('введите x, y, z: ');   repeat       writeln(x: 10: 5,x*x: 20: 5);       x+=z;   until x> y+0.0001 end. пример введите x, y, z: 2.6 8.35 1.25     2.60000                        6.76000     3.85000                      14.82250     5.10000                      26.01000     6.35000                      40.32250     7.60000                      57.76000