[i]Program Task7;
[i]Const
[i]n=10;
[i]Var
[i]a : Array [1..n] of Integer;
[i]i,max,i_max : 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]i_max:=1;
[i]For i:=2 to n do
[i]if a[i]>max then
[i]begin
[i]max:=a[i];
[i]i_max:=i;
[i]end;
[i]Writeln ('Найден максимальный элемент a[',i_max,']=',max);
[i]For i:=i_max to n-1 do
[i]a[i]:=a[i+1];
[i]Writeln('После удаления максимального элемента получен массив A[',n-1,']');
[i]For i:=1 to n-1 do
[i]Write(a[i]:8);
[i]Readln;
[i]End.