Вопрос по информатике:
Ввести с клавиатуры одномерный массив, состоящий из 10 элементов и записать сначала все элементы кратные 5, а затем все оставшиеся. На экран вывести исходный и новый массивы в две строки. Отсортировать новый массив методом «пузырька». Вывести отсортированный массив на экран.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.11.2016 11:43
- Информатика
- remove_red_eye 14400
- thumb_up 16
Ответы и объяснения 1
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.
- 23.11.2016 03:50
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.