В одномерном массиве найти максимальный элемент заменить на 0 ,и вывести массив на экран. На паскале.

Предыдущий
вопрос Следующий
вопрос

program ReplaceMaxElement;
const
N = 10;
var
arr: array[1..N] of integer;
i, maxIndex: integer;
begin
// Заполняем массив случайными значениями
randomize;
for i := 1 to N do
begin
arr[i] := random(100); // случайное число до 100
write(arr[i], ' ');
end;

// Находим индекс максимального элемента
maxIndex := 1;
for i := 2 to N do
begin
if arr[i] > arr[maxIndex] then
maxIndex := i;
end;

// Заменяем максимальный элемент на 0
arr[maxIndex] := 0;

writeln;

// Выводим измененный массив
for i := 1 to N do
begin
write(arr[i], ' ');
end;

end.