Помогите написать программу в паскале. За ранее спасибо. Задача на одномерный массив. Задание 4. В одномерном массиве А[1..12]необходимо поменять местами: а) первый и последний элементы массива; б) второй и минимальный элементы массива; в) третий и максимальный элементы массива; Вывести на экран исходный и результирующий массивы.
var a:array [1..12] of integer; min,max,buf,i:integer; begin randomize; a[1]:=random(9)+1; write (a[1],' '); min:=1; max:=1; for i:=2 to 12 do begin a:=random(9)+1; write (a,' '); if a>a[max] then max:=i else if a<a[min] then min:=i; end; writeln; {смена 1ого и последнего} buf:=a[1]; a[1]:=a[12]; a[12]:=buf; {смена 2ого и минимального} buf:=a[2]; a[2]:=a[min]; a[min]:=buf; {смена 3ого и максимального} buf:=a[3]; a[3]:=a[max]; a[max]:=buf; for i:=1 to 12 do write (a,' '); writeln; readln; end.
