В массиве поменять местами соседние элементы, стоящие на нечетных местах со стоящими на четных - Pascal
Формулировка задачи:
уважаемые программисты помогите решить пару детских задач :
1`) Дан массив положительных чисел. Среди них есть равные. Найти вторые равные элементы массива и заменить их на элемент с противоположным знаком ???
2). В заданном одномерном массиве поменять местами соседние элементы, стоящие на нечетных местах, с элементами, стоящи¬ми на четных.?????????
3) Дана последовательность целых чисел a1, a2, ..., an. Выяс¬нить, какое число встречается раньше — положительное или отрицательное???
4) Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходно¬го, оканчивающиеся на цифру k.???
Решение задачи: «В массиве поменять местами соседние элементы, стоящие на нечетных местах со стоящими на четных»
textual
Листинг программы
t:=0; for i:=1 to n do if arr[i] mod 10=k then begin inc(t); b[t]:=arr[i]; end;