Массив

[Alex_Mason]

В массиве A=(a1,a2,...,an) все элементы, равные нулю, поставить сразу после максимального элемента данного массива.
Элементы массива вводить с клавиатуры.

[Alex_Mason]

Неработает

program zad1;
uses crt;
var a: array [1..100] of integer;
i,n:byte;
i_max:byte;
max:integer;
begin
clrscr;
writeln('Введите количество элементов массива');
write('n=');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' элемент');
readln(a[i]);
writeln;
max:=a[1];
i_max:=1;
end;
begin
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
i_max:=i;
end;
for i:=i_max downto 2 do
a[i]:=a[i-1];
a[1]:=max;
for i:=2 to n do
if a[i]=0 then a[i]:=a[i_max+1];
end;
writeln('Результат обработки:');
for i:=1 to n do
write(a[i]:4);
readln
end.

[Tania21]

program zad1;
uses crt;
var a: array [1..100] of integer;
i,n,j,b:byte;
i_max:byte;
max:integer;
begin
clrscr;
writeln('Введите количество элементов массива');
write('n=');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' элемент');
readln(a[i]);
writeln;
max:=a[1];
i_max:=1;
end;
begin
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
i_max:=i;
end;
for i:=i_max downto 2 do
a[i]:=a[i-1];
a[1]:=max;
b:=2;

for i:=2 to n do
if a[i]=0 then begin
for j:= i downto b do
a[j]:=a[j-1];
a[b]:=0; b:=b+1;end;
end;
writeln('Результат обработки:');
for i:=1 to n do
write(a[i]:4);
readln ;
end.

[Alex_Mason]

Cпасибо Tania21)))