одномерный массив, немогу разобраться , уже 4 вечер |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
одномерный массив, немогу разобраться , уже 4 вечер |
Renat |
Сообщение
#1
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
Разработать в среде Turbo Pascal программу осуществляющую сдвиг элементов массива на одну позицию влево.
Дан одномерный массив ненулевых целых чисел размера N. 1. Найти номера одинаковых элементов, вывести эти номера в порядке возрастания, а так же квадрат суммы этих элементов; 2. Вставить элемент с нулевым значением перед минимальным и после максимального элемента массива; 3. Осуществить сдвиг элементов массива влево на одну позицию . Последний элемент полученного массива положительно равен 0. Для отладки программы исходный массив сформировать с помощью генератора случайных чисел. / Заранее спасибо! |
Renat |
Сообщение
#2
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
а мне кажется что , вот например :
1, 2, 3, 5, 8, 13 и т.д 1+2=3 2+3=5 и так до 13 ,как указано в примере Последовательность Фибоначе Еще однин пример begin mas[0] :=5; mas [1]:= 10 for I :=2 to 7 do mas[i]:= mas[i-2] + mas[i-1]; writeln (mas) ; end. на экран выведет ; 5 10 15 25 40 65 105 170 |
Текстовая версия | 14.05.2024 22:31 |