Технический форум - Помогите, пожалуйста, проверить задачу

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите, пожалуйста, проверить задачу (http://www.tehnari.ru/f41/t50327/)

corpions

11.04.2011 21:12

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

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

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);
write('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:=1 to min-1 do m[i]:=m[i+min-1];
n:=n-min+1;
for i:=1 to n do write(m[i],'');
readln;
end.

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

:tehnari_ru_281::tehnari_ru_121:

corpions

11.04.2011 21:15

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

corpions

11.04.2011 21:15

*устранить

Vladimir_S

11.04.2011 21:44

Цитата:

Сообщение от corpions (Сообщение 502248)

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

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

corpions

11.04.2011 22:12

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

Vladimir_S

11.04.2011 22:32

Цитата:

Сообщение от corpions (Сообщение 502302)

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

Код:

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

11.04.2011 22:50

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

Vladimir_S

12.04.2011 09:31

Цитата:

Сообщение от corpions (Сообщение 502330)

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

Часовой пояс GMT +4, время: 05:03.