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

Question

Информатика

Венедикт

6 год назад

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

ОТВЕТЫ

Demid

Oct 24, 2020

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.

444