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

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

Задать свой вопрос
Амина Нечасова
2мин
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.
____________________________________________________________
Ткни на кнопку "СПАСИБО" и оцени ответ, если я помог для тебя. Удачи!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт