Question

Срочнооооо! Помогите!! 1. Дан целочисленный массив с количеством элементов n. Образовать новый массив из элементов исходного массива , принадлежащих интервалу [a;b]. 2.Дан целочисленный массив (1,1,1,0,0,0,1,1,1,0,0,0,....), с количеством элементов n. "Сожмите" массив, выбросив из него все единицы. 3.Задан массив А (30). Удалите из массива все числа, больше 80. Дополнительные баллы тому, кто решит правильно. Срочнаааа

Answer 1

Vara: array of integer;i,j,z: integer;beginreadln(z);SetLength(a,z+2);for i:=1 to z doreadln(a[i]);for i:=z downto 1 doif i mod 2=0 thenfor j:=i to z-1 doa[j]:=a[j+1];for i:=1 to z-(z div 2) do write(a[i]:4);end.