Информатика, опубликовано 29.03.2019 08:30
Ввести с клавиатуры одномерный массив, состоящий из 10 элементов и записать сначала все элементы кратные 5, а затем все оставшиеся. на экран вывести исходный и новый массивы в две строки. отсортировать новый массив методом
«пузырька». вывести отсортированный массив на экран.
Ответ оставил: Гость
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 5< > 0 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.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01