Напишите программy на турбо паскале, которая заменяет все отрицательные элементы массива нулями

Напишите пожалуйста программy на турбо паскале, которая заменяет все отрицательные элементы массива нулями

  • const
        N = 10;
    var
        a: array [1..N] of integer;
        i: integer;
    begin

    Writeln('Элементы массива: ');
    for i:=1 to N do
    begin
        a[i]:= -100 + random(201);
        Writeln('a[',i,'] = ', a[i]);
    end;

    for i:=1 to N do
        if (a[i] < 0) then a[i]:= 0;
       
       
    Writeln; Writeln;
    Writeln('Элементы нового массива: ');   
    for i:=1 to N do Writeln('a[',i,'] = ', a[i]);
    end.


See also: