Страница 1 из 1

Массивы в Delphi

Добавлено: 06 янв 2008, 22:35
4saken
Парни, завал прост, не сдам послезавтра - обреют и пошлют окопы рыть. Помогите плиз.

1. Дан массив Z состоящий из M целых чисел (0<M<1000;0<Z<1000000). Сформировать массив В из тех элементов массива А, значения которых являются числами – палиндромами.

2. Дан одномерный целочисленный массив А состоящий из N элементов. N заданное натуральное число.
• определить симметричен ли массив (т.е. первый элемент равен последнему, второй предпоследнему и т.д.)
• выполнить сортировку массива А, располагая элементы в порядке возрастания сумм цифр, применяя метод прямого выбора (можно использовать дополнительный массив)
• удалить из массива А, все элементы (числа) массива, цифры которых образуют строго возрастающую последовательность
• найти самую длинную подпоследовательность, составленную из дружественных чисел.(алгоритм. Два числа С и Д дружественные если сумма делителей С равна числу Д, а сумма делителей Д равна числу С.

3.1 Заполнить квадратную матрицу n*n последовательными числами от 0 до n*n*n (n в кубе), располагая числа по спирали, начиная от верхнего левого угла и продвигаясь по часовой стрелке.

3.2 Найти в матрице диагональ, параллельную основной с минимальной суммой.

Re: Массивы в Delphi

Добавлено: 07 янв 2008, 00:56
Turboworld
Если есть электронные финансы - стучись в ась, авось договоримся. ;)
Сделаю быстра и качественно :cool:

Re: Массивы в Delphi

Добавлено: 09 янв 2008, 11:41
Хыиуду
1. Про числа-палиндромы где-то тут уже писалось, поищи.
2.
- пройти в цикле и проверить равенство Z?Z[N-i+1]
- раздел Алгоритмы, тема Сортировка, только там метод пузырька
- дружественные числа тоже где-то недавно обсуждались
3.1. Не влезут, можно даже не стараться.