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

Question

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

Comments

язык какой?

---

Пишу тогда Паскаль

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<br>                         a[i]:=0;
          end;
writeln;
for i:=1 to n do
    write(a[i]:4);
end.