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

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

Задать свой вопрос
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 5lt;gt;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]gt;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.
Макс
А переменны где?
Maksimka
Оно неработать.
Полина Шухтерева
Ну переменные, размышляю, сами опишете. Точно не работает?
Бачина Альбина
Да ввёл переменные можт что и сам напутал год не кодил. массив в инте а другие в бите?
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт