Сphp. 60 . напишите ответ хотя бы на первый пункт, но если сможете, то на все : ) : 1. создать массив из n чисел, каждый элемент которого равен квадрату своего номера. 2. найдите сумму и произведение элементов массива. 3. определите, есть ли в массиве повторяющиеся элементы. поменять местами наибольший и наименьший элементы массива. 4. упорядочить значения массива по возрастанию.
VAR
mas : array of integer;
n,a : integer;
BEGIN
read(n);
a:=0;
SetLength(mas,n);
while a < n-1 do
begin
mas[a]:=a^2;
a:=a+1;
end; {вроде так 90%, но нужно проверить}
END.