// Поменять местами самый левый максимальный элемент с элементом,
// номер которого задан,
// а затем помножить все элементы массива на найденное максимальное значение.
program Matrix1;
var
j,M:integer;
max:integer;
Num:integer;
temp:integer;
a: array [1..20] of integer; // допустим массив из 20 элементов
begin
M:=20;
// Решение
// Заполнять будим случайными числами
 for j:=1 to M do a[j]:=random(20);
//ищем левый максимум
Max:=20;
 for j:=M downto 1 do
if a[j]>=a[max] then max:=j;
//посмотрим исходный массив
writeln;
writeln('исходный массив');
  for j:=1 to M do write(a[j]:3);
//
writeln;
Writeln('введите номер меняемого элемента от 1 до 20');
readln(Num);
// меняем что нужно по условию
temp:=a[max];
A[max]:=a[Num];
a[num]:=temp;
// умножаем
for j:=1 to M do a[j]:=a[j]*temp;
// смотрим что получилось
writeln;
writeln('Ответ');
  for j:=1 to M do write(a[j]:6);
  writeln;
end.