Помогите, пожалуйста, проверить задачу

[corpions]

Помогите, пожалуйста, проверить задачу

Сожмите одномерный массив, удалив предшествующие минимальному элементу.

program Lex;
uses crt;
var m:array[1..100]of integer;
i,n,min:integer;

begin
clrscr;
write('Vvedite kol-vo elementov massiva -> ');
readln;
write('Vvedite massiv ');
for i:=1 to n do read(m);
readln;
min:=1;
for i:=1 to n do if m<m[min] then min:=i;

for i:=1 to min-1 do m:=m[i+min-1];
n:=n-min+1;
for i:=1 to n do write(m,'');
readln;
end.

Она работает правельно или нет ???

:tehnari_ru_281::tehnari_ru_121:

 

[corpions]

Если нет то помогие пожалуйста устанить в задаче ошибку ???

 

[corpions]

*устранить

 

[Vladimir_S]

Она работает правельно или нет ???

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

 

[corpions]

Владимир...я лично не смыслю в этих задач... меня просто попросили помоч...просто перекопируй те мне пожалуйста эту задачу с Вашими исправлениями ???

 

[Vladimir_S]

Владимир...я лично не смыслю в этих задач... меня просто попросили помоч...просто перекопируй те мне пожалуйста эту задачу с Вашими исправлениями ???

Да пожалуйста:

program Lex;
uses crt;
var
 m:array[1..100]of integer;
 i,n,min:integer;

begin
 clrscr;
 write('Vvedite kol-vo elementov massiva -> ');
 readln(n);
 writeln('Vvedite massiv ');
 for i:=1 to n do read(m[i]);
 readln;
 min:=1;
 for i:=1 to n do if m[i]<m[min] then min:=i;

 for i:=min to n do m[i-min+1]:=m[i];
 n:=n-min+1;
 for i:=1 to n do write(m[i],' ');
 readln;
end.

 

[corpions]

Чисто для интереса какие пораметры можно там ввести ?я имею в ввиду пример ???
*последний вопрос и я вам буду очень признателен и крайне блогадарен*

 

[Vladimir_S]

Чисто для интереса какие пораметры можно там ввести ?я имею в ввиду пример ???
*последний вопрос и я вам буду очень признателен и крайне блогадарен*

Сначала - количество чисел, например, 10.
Потом вводите 10 ЦЕЛЫХ чисел, разделенных пробелом, и жмете "Enter". Числа должны быть не слишком большими, между -32000 и 32000.