|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.11.2013, 23:42 | #1 |
Регистрация: 19.11.2013
Сообщений: 4
|
Задан массив целых чисел, который может содержать повторяющиеся члены. Вычислить сколько чисел входят в массив более чем по одному
1)Задан массив целых чисел, который может содержать повторяющиеся члены. Выяснить сколько чисел входят в массив более чем по одному разу и подсчитать их количество.
Программа: Код:
Помогите найти и исправить ошибки, или найти более легкие варианты программ. Последний раз редактировалось Stilet; 20.11.2013 в 00:12. |
20.11.2013, 00:05 | #2 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
Лучше введите логические переменные
Код:
PS Если используете Random, вызовите 1 раз Randomize, а то при каждом запуске будут одни и те же числа. И почему всего 10, как то не интересно. Хотя бы Random(100). Последний раз редактировалось type_Oleg; 20.11.2013 в 00:13. |
20.11.2013, 00:11 | #3 |
Регистрация: 19.11.2013
Сообщений: 4
|
Т.е. на убывание будет так?
// .. uporUby:=True; for i:=1 to 99 do if a[i]<a[i+1] then begin uporUby:=False; Break; end; // .. Последний раз редактировалось nubiknovo; 20.11.2013 в 00:20. |
20.11.2013, 00:16 | #4 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
Да, но сначала
Код:
Ну вообщем, в одном случае >, в другом < |
20.11.2013, 00:22 | #5 |
Регистрация: 19.11.2013
Сообщений: 4
|
Спасибо, исправил.
А как первую задачу переделать вы случайно не знаете? |
20.11.2013, 00:38 | #6 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
После y:=0;
Код:
|
20.11.2013, 00:50 | #7 |
Регистрация: 19.11.2013
Сообщений: 4
|
Спасибо, вроде все понял.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
СИ: Задан массив, состоящий из целых положительных и отрицательных чисел. Создать новый массив из положительных элементов старого | Любимая | Помощь студентам | 0 | 28.05.2013 18:44 |
assembler. Задан массив А из N чисел. Преобразовать этот массив так, чтобы сначала шли четные числа, а потом – нечетные | Transcend | Помощь студентам | 5 | 18.03.2013 11:42 |
Даны числа а1,..,а60. Организовать новый массив из тех чисел, которые входят в последовательность более одного раза (С) | Мишаня@ | Помощь студентам | 0 | 01.12.2012 22:01 |
Дан массив из N целых чисел. Получить из него массив чисел по модулю меньших 10 и отсортировать его(язык си++) | mitja-zakelidis | Помощь студентам | 2 | 15.03.2012 03:10 |
вывести массив целых чисел в файле по одному в строке | newstudent777 | Паскаль, Turbo Pascal, PascalABC.NET | 12 | 22.09.2011 22:17 |