Delphi
1. Найти пять наименьших натуральных чисел N таких, что N^2 = А^2 + В^2 + С^2, где А, В и С неравные друг другу натуральные числа.
2. Дано натуральное число n, целые числа а1, а2,…, аn. Подсчитать сколько раз встречается в этой последовательности максимальное по величине число. Поиск максимального и подсчет их количества произвести в одном цикле.
3. Дано натуральное число n, целые числа х, а1, а2,…, аn. Определить, каким по счету в последовательности а1, а2,…, аn идет элемент, равный х. Если такого члена в последовательности нет, то предусмотреть соответствующее сообщение.
4. Дано натуральное число n, целые числа а1, а2,…, аn. Подсчитать наибольшее число одинаковых, подряд идущих чисел.
5. Дано натуральное число n, действительные числа а1, а2,…, аn. Переставить члены последовательности так, чтобы сначала расположились все ее неотрицательные члены, потом – все отрицательные. Порядок как среди неотрицательных членов, так и среди отрицательных должен быть сохранен прежним.