Помогите написать программы на Delphi
1) Дано натуральное число n. Получить все пифагоровы тройки натуральных чисел, каждое из которых не превосходит n, то есть все такие тройки чисел a, b,c, что a2+b2=c2.
2)В одномерном массиве, состоящем из 20 вещественных элементов (значения элементов массива задать случайными числами из интервала
[-5, 8]), вычислить сумму элементов массива, расположенных до последнего положительного элемента. Сформировать из этих элементов новый массив.
1) Дано натуральное число n. Получить все пифагоровы тройки натуральных чисел, каждое из которых не превосходит n, то есть все такие тройки чисел a, b,c, что a2+b2=c2.
2)В одномерном массиве, состоящем из 20 вещественных элементов (значения элементов массива задать случайными числами из интервала
[-5, 8]), вычислить сумму элементов массива, расположенных до последнего положительного элемента. Сформировать из этих элементов новый массив.
