Задание:
Составьте программу, которая вводит с клавиатуры 8 целыхнеотрицательных чисел (каждое число — с новой строки отдельнойкомандой «ввод»), записывает их в массив, выводит на экран сначала впрямом порядке все без исключения элементы массива, затем, в обратномпорядке относительно следования в массиве, все четные элементы. Например, для массива «1 2 5 4 5 3 7 8» программа должна выводитьчисла в таком порядке: 1 2 5 4 5 3 7 8 8 4 2. Каждое число программа должна выводить в отдельной строке; ничего, кроме чисел, программа выводить не должна.
Решение:
varA: array [1… 8] of byte; i: integer; beginfor i: =1 to 8 do readln (A[i]); for i: =1 to 8 do writeln (A[i]); for i: =8 downto 1 dobeginif not Odd (A[i]) then writeln (A[i]); end; readln; end.
Знаете другой ответ?