Помогите, пожалуйста!!
Массив с 10 трёхзначными числами. Упорядочить их по первой цифре в порядке убывания..
Здесь чтото пыталась делать, но как вижу это не совсем то..
Прикрепленные файлы
UZD8.PAS ( 813 байт )
Кол-во скачиваний: 215
В процедуре booble меняешь строку
if mas[pred(j)]>mas[j] then
на
if mas[pred(j)] div 100 >mas[j] div 100 then
массив X и его заполнение выкидываешь , вместо этого bubble(mas,n);
Спасибо! Сейчас попробую
работает!!!!