Question

заменить все отрицательные элементы массива нулями

Answer 1

const
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
     for i:=1 to n do
          begin
               a[i]:=random(100)-50;
               write(a[i]:4);
                     if a[i]<0 then
                         a[i]:=0;
          end;
writeln;
for i:=1 to n do
    write(a[i]:4);
end.