Составьте программу, которая вводит с клавиатуры 8 целыхнеотрицательных чисел (каждое число — с новой строки отдельнойкомандой «ввод»), записывает их в массив, выводит на экран сначала впрямом порядке все без исключения элементы массива, затем, в обратномпорядке относительно следования в массиве, все чётные элементы. Например, для массива «1 2 5 4 5 3 7 8» программа должна выводитьчисла в таком порядке: 1 2 5 4 5 3 7 8 8 4 2. Каждое число программа должна выводить в отдельной строке; ничего, кроме чисел, программа выводить не должна.
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.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Составьте программу, которая вводит с клавиатуры 8 целыхнеотрицательных чисел (каждое число — с новой строки отдельнойкомандой «ввод»), записывает их в массив, выводит на экран сначала впрямом порядке все без исключения элементы массива, затем, в обратномпорядке относительно следования в массиве, все чётные элементы. Например, для массива «1 2 5 4 5 3 7 8» программа должна выводитьчисла в таком порядке: 1 2 5 4 5 3 7 8 8 4 2. Каждое число программа должна выводить в отдельной строке; ничего, кроме чисел, программа выводить не должна.» от пользователя Маша Сидорова в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!