Всем добрый вечер. как написать программу для такой : в одномерном массиве заменить на ноль четные элементы?

Скоро сделаю подожди 5 минут, попробую все объяснить

Program massiv; var i,max,n,j: integer; a: array[1..30] of integer; begin writeln ('введите  элемент  массива'); for i: =1 to 30 do begin write ('a[',i,']-'); readln (a[i]); end; n: =1; max: =a[i]; for i: =2 to 30 do if max< a[i] then begin max: =a[i]; n: =i; end; for i: =1 to 30 do if a[i]< 0 then a[i]: =-a[i]; writeln ('наибольший  элемент  в  массиве ', max); writeln ('номер  массива ', n); writeln ('получившийся  массив'); for i: =1 to 30 do write (a[i],' '); end.

Смотри на скриншот я сделал просто не хочу чтоб форматировка текста портилась.все работает! const n=3; m=4; var a: array [1..n,1..m] of integer;     i,j,k,max: integer;     ind: array [0..1] of integer=(1,1); begin  randomize;     for i: =low(a) to high(a) do    for j: =low(a) to high(a[1]) do      a[i,j]: =random(100);   for i: =low(a) to high(a) do    begin      writeln;     for j: =low(a) to high(a[1]) do    write(a[i,j]: 3);     end;     max: =a[1,1];     for i: =low(a) to high(a) do    for j: =low(a) to high(a[1]) do     if a[i,j]> max then      begin        max: =a[i,j];         ind[0]: =i;         ind[1]: =j;       end;       writeln;   writeln(' max element: ',max);   write(' index: ');     for i: =0 to 1 do    write(ind[i],' ');   readln; end.