Необходимо решить 8,9,10 и 12 задачу через паскаль абс. Кто что может, , заранее благодарю

Необходимо решить 8,9,10 и 12 задачу через паскаль абс. Кто что может,помогите пожалуйста, заранее благодарю.

  • № 8(позже допишу остальные, времени не хватает пока что, надеюсь добавить будет еще можно...). 

     

    var i,n: integer; A = array[1..n] of integer;

    begin

    writeln('vvedit chislo N');

    readln(n);

    for i:=1 to n do begin

    writeln('vvedit chislo massiva');

    readln(A[i]);

    If A[i] < 0 then A[i] = 0;

    end;

    for i:=1 to n do

    writeln(A[i]);

    readln;

    end.

     

    Если что то я сделал замену елементов в массиве в том же цыкле что и запись чисел в массив. Надеюсь это сойдет. 

     

     

Информатика