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

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.

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

corpions · 11.04.2011, 21:15

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

corpions · 11.04.2011, 21:15

*устранить

Vladimir_S · 11.04.2011, 21:44

Цитата:

Сообщение от corpions

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

Прежде всего, я, увы, не знаю слова "правЕльно". А если подразумевается "правИльно", то ответ - нет, не правильно. И неправильно прежде всего построен цикл переназначения элементов массива. Нужно так:
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

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

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

Код:

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

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

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

11.04.2011, 21:12	#1 (permalink)
corpions Новичок Регистрация: 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:15	#2 (permalink)
corpions Новичок Регистрация: 11.04.2011 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Если нет то помогие пожалуйста устанить в задаче ошибку ???

11.04.2011, 21:15	#3 (permalink)
corpions Новичок Регистрация: 11.04.2011 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	*устранить

11.04.2011, 22:12	#5 (permalink)
corpions Новичок Регистрация: 11.04.2011 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Владимир...я лично не смыслю в этих задач... меня просто попросили помоч...просто перекопируй те мне пожалуйста эту задачу с Вашими исправлениями ???

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

11.04.2011, 22:50	#7 (permalink)
corpions Новичок Регистрация: 11.04.2011 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Чисто для интереса какие пораметры можно там ввести ?я имею в ввиду пример ??? последний вопрос и я вам буду очень признателен и крайне блогадарен