Ввести с клавиатуры одномерный массив, состоящий из 10 элементов и записать снач...

August 2022 1 1 Report

Ввести с клавиатуры одномерный массив, состоящий из 10 элементов и записать сначала все элементы кратные 5, а затем все оставшиеся. На экран вывести исходный и новый массивы в две строки. Отсортировать новый массив методом «пузырька». Вывести отсортированный массив на экран.

Answers & Comments

Mapleshade02 Varbeginj:=0;for i:=1 to 10 do read(a[I]);for i:=1 to 10 doif a[i] mod 5=0 then beginj:=j+1;b[j]:=a[i];end;for i:=1 to 10 doif a[i] mod 5<>0 then beginj:=j+1;b[j]:=a[i];end;For i:=1 to j do write(a[i],` `);Writeln();For i:=1 to j-1 doFor c:=j-1 downto i doIf b[c]>b[c+1] do begink:=b[c];B[c]:=b[c+1];B[c+1]:=k;end;For i:=1 to j do write(b[i],` `);End.

1 votes Thanks 1

DartWi19 А переменны где?

DartWi19 Оно неработать.

Mapleshade02 Ну переменные, думаю, сами опишете. Точно не работает?

DartWi19 Да ввёл переменные можт что и сам напутал год не кодил. массив в инте а остальные в бите?

14 vvesti s klaviatury odnomernyj massiv sostoyashij iz 10 elementov i zapisat

Answer

Answers & Comments

14 vvesti s klaviatury odnomernyj massiv sostoyashij iz 10 elementov i zapisat

рекомендуемые вопросы

Helpful Links

Helpful Social