Дан целочисленный массив из 10 элементов. Вывести ** экран все его четные элементы,...

Question

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

Comments

2мин

Answer 1

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.
____________________________________________________________
Ткни на кнопку "СПАСИБО" и оцени ответ, если я помог тебе. Удачи!