Задать вопрос
5 сентября, 13:55

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

+2
Ответы (1)
  1. 5 сентября, 17:37
    0
    Var begin j:=0; for i:=1 to 10 do read (a[I]) ; for i:=1 to 10 do if a[i] mod 5=0 then begin j:=j+1; b[j]:=a[i]; end; for i:=1 to 10 do if a[i] mod 50 then begin j:=j+1; b[j]:=a[i]; end; For i:=1 to j do write (a[i],' ') ; Writeln () ; For i:=1 to j-1 do For c:=j-1 downto i do If b[c]>b[c+1] do begin k:=b[c]; B[c]:=b[c+1]; B[c+1]:=k; end; For i:=1 to j do write (b[i],' ') ; End.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Ввести с клавиатуры одномерный массив, состоящий из 10 элементов и записать сначала все элементы кратные 5, а затем все оставшиеся. На ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы