Задача с одномерным массивом.

[Иван46]

Помогите решить задачу. Проблемы с элементами отбора и замены ячеек массива.

В одномерном массиве A=(a1, а2, ..., аn) группу, содержащую наибольшее число равных элементов, заменить на максимальный элемент этого массива. После корректировки массив может содержать меньше элементов, чем прежде. Элементы массива вводить с клавиатуры.

program lab5_var8;
Uses crt;
type arr=array[1..15] of integer;
var a:arr;
i,j,n,z,k: integer;
i_max: byte;
max:integer;
begin

{$R+}
clrscr;
n:=15;
writeln(' ishodnii massiv ');
for i:=1 to n do
Readln (a[i]);
begin
 end;
 writeln;

 max:=a[1];
 i_max:=1;
 for i:=2 to n do
   if a[i]>max then
   begin
    max:=a[i];
    i_max:=a[i];
    end;


    i:=1;
    z:=0;
    for i:=1 to n do
        if a[i]=a[i+1] then
        begen
          z:=z+1;
         

      
      
         for j:=i to n-1 do
             a[j]:=a[j+1];
         n:=n-1;
      end
      else
       i:=i+1;
      end;
      writeln(' rezultat obrabotki ');
      for i:=1 to n do
       write(a[i]:4);
      readln;
      {$R-}
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Poma][a]

оформляй код! (кнопка #)

[Sweta]

Паскаль не знаю. Попытаюсь помочь идеей. Думаю, что реализуете сами.
1. В части, где определяете значение мах,

begin
max:=a[i];
i_max:=i; {думаю, что д.б. так}
end;

далее, для нахождения группы, содержащих кол-во одинаковых элементов -z
zmax=0 - мах кол-во повтор элементов
nmax=0 - позиция первого повторяющегося элемента
в цикле от 1 до n
if a[i]=a[i+1]
для организации нового цикла - элемент k=i+2;
количество равных элементов=1
цикл до тех пор пока a[k] равно a[i]
количество равных элементов z+1
k+1
конец цикла пока
если количество равных элементов больше предыдущих if z>zmax
тогда
zmax=z
nmax=i
конец второго если
i=k
конец первого если
конец цикла for

Для замены меняете элемент a[nmax] на max
и организовываете цикл, в котором сдвигаете все элементы, с позиции
nmax+zmax на (nmax+1), nmax+zmax+1 на (nmax+2) и т.д.