Паскаль.Массив

[Krigan]

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

[Ghost of Night]

В чем проблема?
Циклом по динамическому масиву, считаем нули, и находим мах.
проверяем равно это количество половине массива, и есла да, то снова цикл....
есди нет, то мах мы уже нашли

[Krigan]

и как это записать?

[Hacker19_90]

max := mas[i];
count_zero := 0;
for i := 1 to n do
begin
    if max < mas[i] then max := mas[i];
    if mas[i] = 0 then Inc (count_zero);
end;
if ((n mod 2) = 0) and ((n div 2) = count_zero) then 
    for i := 1 to n do 
        if mas[i] = 0 then mas[i] := n
else Writeln ('Maximum = ', max);

[Ghost of Night]

Первую строчку лучше заменить на

max := mas[Low(mas)];