кто знает решения одномерных массивов?

[ДaHuл]

вот задания, не знаю как решить
1.в произвольно заданном одномерном массиве все нулевые элементы заменить максимальным элементом.
2.в произвольно заданном одномерном массиве определить элементы, слева и справа от которых расположены меньшие значения

[Asker13]

1)

program _1;
const
  N = 10;

var
  a: array [1..N] of integer;
  i, k: integer;
begin
  Randomize;
  for i := 1 to N do begin a[i] := Random(N); Write(a[i], ' '); end;
  k := 1;
  for i := 2 to N do if a[i] > a[k] then k := i;
  for i := 1 to N do if a[i] = 0 then a[i] := a[k];
  for i := 1 to N do Write(a[i], ' ');
end.

[rubius2008]

2)

for i:=2 to n-1 do if (a[i-1]<a[i]) and (a[i]>a[i+1]) then writeln(i,' element');