Приведу пример программы на языке Pascal, которая выполняет данную задачу:

program ReplaceMaxWithZero;
const
n = 5; // Размер массива
var
arr: array[1..n] of real;
i, maxIndex: integer;
maxVal: real;
begin
writeln('Введите элементы массива:');
for i := 1 to n do
readln(arr[i]);
// Находим максимальное значение и его индекс
maxIndex := 1;
maxVal := arr[1];
for i := 2 to n do
begin
if arr[i] > maxVal then
begin
maxVal := arr[i];
maxIndex := i;
end;
end;
// Заменяем найденный максимальный элемент нулём
arr[maxIndex] := 0;
// Выводим изменённый массив
writeln('Изменённый массив:');
for i := 1 to n do
write(arr[i]:4:2, ' ');
end.

Данная программа сначала запрашивает у пользователя элементы массива, затем находит первый максимальный элемент, заменяет его на ноль и выводит измененный массив на экран.