Нужно исправить ошибку в коде Это паскаль! Type mass=array[1..20] of real; var a:mass; i, j, m:integer; begin randomize; writeln('Массив A'); for i:=1 to 20 do begin a[i]:=(random(201)-80/(random(100)+1)); write (a[i]:6:2); end; m:=20; for i:=1 to 20 do begin if a[i]<0 then begin for j:=i to 20 do a[j] = a[j+1]; dec(m) end; if a[i]<0 then dec(i) end; writeln('Массив A без отрицательных элементов '); for i:=1 to m do write (a[i]:6:2) end.