Решить в паскале.Дан массив А(9). Сконструировать новый массив В, который выходит

а что делать если не негативно что записвать?

Правдиво не знаю вот такую задачку дали решить

вк есть?

А сам как думаешь?

вк ком maxkrivich

мой id

напиши мне там бстрее

Program Project2;
APPTYPE CONSOLE
uses  SysUtils;
var a,b:array [1..9] of Integer; i:integer;
begin 
Randomize; 
for i:=1 to 9 do 
a[i]:=Random(10)-5;
  for i:=1 to 9 do 
 write(a[i]:3);
  writeln;
for i:=1 to 9 do 
 b[i]:=a[i];
for i:=1 to 9 do
 if b[i]lt;0 then
  b[i+1]:=0;
  for i:=1 to 9 do 
write(b[i]:3);
 Readln;
end.