Дан массив из 10 целых чисел, заполняемый с клавиатуры. Найти наибольшее значение элемента массива и его номер. Дан массив из 10 целых чисел. Поменять местами набольший и наименьший элементы массива.

Дан массив из 24 целых чисел. Заменить все элементы между максимальным и минимальным, кроме их самих, на 0.

Решите все эти программы на языке Паскаля, очень надо

begin

 var n: array of integer;

 setlength(n,11);

 writeln('Введите содержимое массива:');

 for var l:= 1 to n.high do read(n[l]);

 writeln('Наибольшее значение: ',n.max,' его номер: ',n.lastindexmax);

end.

begin

 var n:= ArrRandomInteger(10,1,99);

 writeln('Исходный массив: ',n);

 var A:=n[n.High];

 n[n.High]:=n[n.Low];

 n[n.Low]:=A;

 writeln('Полученный массив: ',n);

end.

begin

 var n:= ArrRandomInteger(24,1,99);

 writeln('Исходный массив: ',n);

 for var l:=n.Low+1 to n.High-1 do n[l]:=0;

 writeln('Полученный массив: ',n);

end.