Составьте программу, которая вводит с клавиатуры 8 целых неотрицательных чисел (каждое число — с новой строки отдельной командой «ввод»), записывает их в массив, выводит на экран сначала в прямом порядке все без исключения элементы массива, затем, в обратном порядке относительно следования в массиве, все чётные элементы. например, для массива «1 2 5 4 5 3 7 8» программа должна выводить числа в таком порядке: 1 2 5 4 5 3 7 8 8 4 2. каждое число программа должна выводить в отдельной строке; ничего, кроме чисел, программа выводить не должна.
Arthas1212523
2
15.03.2019 08:10
1
Другие вопросы по теме Информатика
zvezdoska
24.01.2021 13:15
aika113
24.01.2021 13:13
petr0poroshenko
16.04.2020 08:47
katerinaket04
16.04.2020 23:03
vitalis1999
16.04.2020 08:46
ViollaK2704
11.06.2019 01:20
Гена102
11.06.2019 01:20
stik6
10.09.2020 01:19
IRINADREM
26.04.2020 15:06
karinasurshkose
26.04.2020 15:06
Популярные вопросы
- 1. трудно найти человека, который не любил бы зверей, птиц, рыб. 2. но...
1 - Нужно найти деепричастные обороты в произведении платонова неизвестный...
3 - Мне прямо сейчас нужно! : решите уравнение. 6(2-5х)=9-7(4х-3)...
3 - 5слов с не и ни в отрицательных местоимениях, 5 местоимений с кое- то-...
3 - Два велосипедиста выехали одновременно навстречу друг другу из двух поселков,...
2 - В)3,5х=-1,75 г)х: 2,4=-2,4 д)-х=2,35 е)-9х=2,79 ж)0,3х-0,4х=1,98 з)3х-5х-15-х=1,8...
1 - Решите ! 1) s прямоугольника 48см^2, одна сторона составляет 3/4 от другой....
1 - Выбери и ставь глагол в нужной форме. 1)look! they the street . a) cross...
1 - Что такое дельта скажите просто я всю проболел(...
2 - Вкаких словах есть приставка и суффикс 1)рукомойник 2)пылесос 3)подветренный...
1
var
A:array [1..8] of byte;
i:integer;
begin
for i:=1 to 8 do readln(A[i]);
for i:=1 to 8 do writeln(A[i]);
for i:=8 downto 1 do
begin
if not Odd(A[i]) then writeln(A[i]);
end;
readln;
end.