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.
