Цитата:
Сообщение от corpions
Она работает правельно или нет ???
|
Прежде всего, я, увы, не знаю слова "правЕльно". А если подразумевается "правИльно", то ответ - нет, не правильно. И неправильно прежде всего построен цикл переназначения элементов массива. Нужно так:
for i:=min to n do m[i-min+1]:=m[i];
Тогда будет правильно.
И еще мелкий огрех. В выводе преобразованного массива Вы ставите
write(m[i],'')
Два слитных апострофа ничего не дают, все числа при выводе слепляются. Нужно, чтобы был хотя бы один пробел, то есть так:
write(m[i],' ')