В линейном массиве сместить каждый положительный и четный по значению элемент на один назад. (Язык программирования - Паскаль)
10-11 класс
|
var a:array[1..999999] of integer;
n,i,tmp:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]>0) and (a[i] mod 2 = 0) then begin
tmp:=a[i];
a[i]:=a[i-1];
a[i-1]:=tmp;
end;
for i:=1 to n do
write(a[i],' ');
end.
Смотрите во вложении................
т.е. поменять его местами каждый положительный четный и предыдущий?
Другие вопросы из категории
2 терабайта в мегабайты
2^13 бита в килобайты
элементов настоящей таблице х [1 .. 10] на 0.
3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат.
4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.
Читайте также
элементы, а из массива В -нечетные по значению.Выведите на экран массивы А,В,С.
2.Информация о площадях и средней урожайности хранится в массиве,где каждый элемент с четным индексом - засеянная площадь, а с нечетным - урожайность.Определите и выведите на экран кол-во собранной пшеницы и среднюю урожайность.
Помогите пожалуйста!
массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
полученных сумм одномерный массив B[1..6].
Вывести на экран в одну строку каждый 2 элемент массива, который больше заданного значения K. (Язык программирования - Паскаль)