Вопрос, который вызвал трудности

Дан целочисленный массив из 10 элементов. Вывести на экран все его четные элементы, предварительно расположив их по убыванию методом пузырька

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Program PR;varI:byte;Mas:array[1..10] of integer;beginfor I:=1 to 10 do begin write('Введите 10 чисел:'); readln(Mas[I]);end;writeln('Список четных элементов массива:');for I:=1 to 10 do if Mas[I] mod 2=0 then writeln(Mas[I]);readln;end.
____________________________________________________________
Ткни на кнопку "СПАСИБО" и оцени ответ, если я помог тебе. Удачи!