[i]Program Task9;
[i]Const
[i]n=10;
[i]Var
[i]a : Array [1..n] of Longint;
[i]max : Longint;
[i]i : Integer;
[i]Begin
[i]Writeln ('Введите элементы масиива A[',n,']');
[i]For i:=1 to n do
[i]begin
[i]Write('a[',i,']=');
[i]Readln(a[i]);
[i]end;
[i]Writeln('Сформирован массив A[',n,']:');
[i]For i:=1 to n do
[i]Write(a[i]:8);
[i]Writeln;
[i]max:=a[1];
[i]For i:=2 to n do
[i]if a[i]>max then
[i]max:=a[i];
[i]Writeln ('Максимальный элемент :',max);
[i]For i:=1 to n do
[i]a[i]:=a[i]*max;
[i]Writeln('После умножения каждого элемента на максимальный, получен массив A[',n,']');
[i]For i:=1 to n do
[i]Write(a[i]:8);
[i]Readln;
[i]End.