“Сожмите” массив, выбросив из него каждый второй элемент - Pascal
Формулировка задачи:
Дан целочисленный массив с количеством элементов n. “Сожмите” массив, выбросив из него каждый второй элемент. Дополнительный массив не использовать.
Нужно именно выбросить элементы массива.
Вот что то такое получилось, но не совсем рабочее, помогите)
var i,n:integer; a:array[1..20]of integer; begin writeln('Введите размер массива:'); read(n); writeln('Введите элементы массива:'); for i:=1 to n do read(a[i]); for i:=1 to n do if ((a[i])>(a[i-1])) and ((a[i])<(a[i+1])) then begin i:=i+1; end else writeln(a[i]); end.
Решение задачи: «“Сожмите” массив, выбросив из него каждый второй элемент»
textual
Листинг программы
for i:=1 to n do if a[i]<0 then write(a[i],' ');
Объяснение кода листинга программы
В данном коде происходит итерация по элементам массива a
от 1 до n
. Если значение текущего элемента меньше нуля, то оно выводится на экран через пробел.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д