rinat-shoker

1. Формирование и вывод массива.
2. Поиск элемента последовательности, наиболее близкий по значению к максимальному в данной последовательности.
3. Удаление требуемого элемента из массива.
4. Упорядочение элементов массива по возрастанию.
5. Вывод результата.

uses Crt;
const n=20;
type Tmass=array[1..n] of integer;
var a:Tmass;
i,max,mi,t,r:integer;
begin
ClrScr;
Writeln('Massiv A:');
Writeln;
Randomize;
max:=-MaxInt;
mi:=0;
for i:=1 to n do
begin
a[i]:=Random(100);
Write(a[i]:4);
if a[i]>max then
begin
max:=a[i];
mi:=i;
end;
end;
Writeln; Writeln;
Writeln('Max = ',max,' [ ',mi,' ]');
Writeln;
t:=0; r:=MaxInt;
for i:=1 to n do
if i<>mi then
if (max-a[i]<r) then
begin
r:=max-a[i];
t:=i;
end;
Writeln('Naibolee blizkiy = ',a[t],' [ ',t,' ]');
Writeln;
for i:=t to n-1 do
a[i]:=a[i+1];
a[n]:=0;
Writeln('Noviy massiv:');
Writeln;
for i:=1 to n do
Write(a[i]:4);
Writeln;
Writeln;
for i:=1 to n-1 do
for r:=1 to n-i do
if a[r]>a[r+1] then
begin
t:=a[r];
a[r]:=a[r+1];
a[r+1]:=t;
end;
Writeln('Sortirovanniy massiv:');
Writeln;
for i:=1 to n do
Write(a[i]:4);
Writeln;
ReadKey;
end.