11.04.2011, 21:12 | #1 (permalink) |
Новичок
Регистрация: 11.04.2011
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, проверить задачу
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. Она работает правельно или нет ??? |
11.04.2011, 21:12 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Можете найти полезную информацию в похожих обсуждениях Помогите, пожалуйста, решить задачу Пожалуйста, помогите проверить систему на совместимость Помогите решить задачу по C++, пожалуйста |
11.04.2011, 21:44 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Прежде всего, я, увы, не знаю слова "правЕльно". А если подразумевается "правИльно", то ответ - нет, не правильно. И неправильно прежде всего построен цикл переназначения элементов массива. Нужно так:
for i:=min to n do m[i-min+1]:=m[i]; Тогда будет правильно. И еще мелкий огрех. В выводе преобразованного массива Вы ставите write(m[i],'') Два слитных апострофа ничего не дают, все числа при выводе слепляются. Нужно, чтобы был хотя бы один пробел, то есть так: write(m[i],' ') |
11.04.2011, 22:12 | #5 (permalink) |
Новичок
Регистрация: 11.04.2011
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Владимир...я лично не смыслю в этих задач... меня просто попросили помоч...просто перекопируй те мне пожалуйста эту задачу с Вашими исправлениями ???
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
11.04.2011, 22:32 | #6 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. |
|
12.04.2011, 09:31 | #8 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Потом вводите 10 ЦЕЛЫХ чисел, разделенных пробелом, и жмете "Enter". Числа должны быть не слишком большими, между -32000 и 32000. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|