Занулить максимальные элементы в массиве.

[Leshii]

Доброго времени суток, прошу помочь или же просто подкинуть совет\идею)
У меня получилось обнулить, но только 1 максимальное число. Ну и собственно вопрос, как обнулить остальные ? Кинул весь код программы, но прошу весь не смотреть не в том суть, сразу выделил тот момент где думаю возможно чего-то не хватает или же я что-то по логике упустил.

{-R}
Uses crt;
Type
  MyType= Word;
  tr = file of word;
Type
  MyArray=Array[1..1] of MyType;
  MyArrayPtr=^MyArray;
var
   DynamicArray: MyArrayPtr;
   i, k, Count, Size, B, max, buffer: word;
   t: tr;
   name: string;


begin
clrscr;
 write('Vvedite nazvanie: ');
 readln(name);
 assign(t, name);
 rewrite(t);
 write('Vvedite 4islo elementov massiva ');
 ReadLn(Count);
 randomize;
  for i:=1 to Count do begin
      B:=random(10);
      write(t, b);
  end;
close(t);
reset(t);
while not eof(t) do begin

   read(t, b);
   write(b:2,' ');

end;

close(t);

reset(t);
writeln;
writeln('Zapoln9em massiv');
Size:=Count*SizeOf(MyType);
GetMem(DynamicArray,Size);
for i:=1 to Count do DynamicArray^[I]:=I;

for i:=1 to Count do begin
    read(t, DynamicArray^[i]);
    write('Mas[',i,']:=',DynamicArray^[I]:2,' ');
end;
writeln;
max:=1;k:=0;
for i:=1 to Count do
 if DynamicArray^[max]<=DynamicArray^[i]  then begin
    max:=i;
    write(' ',DynamicArray^[max]);
 end;
 writeln;
for i:=1 to Count do
    DynamicArray^[max]:=0;
for i:=1 to count do
    write(' ',DynamicArray^[i]);
readln;
end.

[Stilet]

for i:=1 to Count do DynamicArray^[I]:=I;

Щоза??? Зачем???

max:=0;
for i:=1 to Count do begin
    read(t, DynamicArray^[i]);
    if DynamicArray^[i]>max then max:=DynamicArray^[i];
    write('Mas[',i,']:=',DynamicArray^[I]:2,' ');
end;
writeln;

for i:=1 to Count do begin
    if DynamicArray^[i]=max then    DynamicArray^[max]:=0;
    write(' ',DynamicArray^[i]);
end;
readln;
end.

Пойдет?

[Leshii]

Поедет =) Но по факту, тоже что и было до того =)
Вы на эти причуды не обращайте внимания... я давно это писал.

[Hacker19_90]

хммм! интересно!

max:=0; //Рискованно, а если массив из отрицательных чисел?
for i:=1 to Count do begin
    read(t, DynamicArray^[i]);
    if DynamicArray^[i]>max then max:=DynamicArray^[i]; // Сохранили значение в мах. Ок Всё верно
    write('Mas[',i,']:=',DynamicArray^[I]:2,' ');
end;
writeln;

Дальше

for i:=1 to Count do begin
    if DynamicArray^[i]=max then    DynamicArray^[max]:=0; // Это вот с какого мах стал индексом?
    write(' ',DynamicArray^[i]);
end;

[Stilet]

max:=0; //Рисковано а если массив из отрицательных чисел?

Чего???

Type
MyType= Word;
tr = file of word;
Type
MyArray=Array[1..1] of MyType;

Каких еще отрицательных?

Это вот с какого мах стал индексом?

Согласен, очепятка. там i нужно.

[Hacker19_90]

Каких еще отрицательных?

уппс пардон! Word то я и не пропалил!

очепятка

Прикольно звучит +1

[Stilet]

Word то я и не пропалил!

Ну дык мы в расчете
Ничья получилась