Дан одномерный массив. Используя подпрограмму найти среднее арифметическое отрицательных элементов массива. Заменить на него минимальный элемент.

//7.Написать программу на Паскале вычисления значения функции(х^2 при х>0 х-12 при х≤0)

var
x:integer;
begin
writeln('Введите x');
readln(x);
if x>0 then writeln('ответ ', power(x,2))
else writeln('ответ ', x-12);
end.

//8.Написать программу на Паскале нахождения периметра произвольного четырехугольника, данные вводить с клавиатуры.

var
a,b,c,d:integer;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
writeln('P= ', a+b+c+d);
end.

//9.Написать программу на Паскале вычисления значения выражения у=15х3+3х2-6

var
x:integer;
begin
writeln('Введите x');
readln(x);
writeln('ответ ', 15*power(x,3)+3*power(x,2)-6)
end.

//10.Написать программу на Паскале вычисления значения функции(х^2+5х-4 при х>3х при х≤3)

var
x:integer;
begin
writeln('Введите x');
readln(x);
if x>3 then writeln('ответ ', power(x,2)+5*x-4)
else writeln('ответ ', x);
end.

Попробуем записать это сложение "в столбик"
  24005
+  2003

  26010

Очень приятно, что сложение младших разрядов дает нам 10. Т.е. понятно, конечно, что 5+3 не могут в сумме дать 0 ни в одной "нормальной" системе счисления, следовательно 0 - это последний разряд суммы 10, а единичка пошла переносом в следующий разряд.
Но если считать в десятичной системе, 5+3=8. Но не 10. 10-8=2, т.е. сумма получилась на 2 больше. Следовательно, основание системы счисления на 2 меньше, т.е. равно 10-2, т.е. 8.
Итак, мы сделали (обоснованно!) предположение, что основание системы счисления равно 8. Посмотрим, все ли цифры можно записать в восьмеричной системе, где допускаются только цифры от 0 до 7? Все.
Ну и отлично, задача решена. Остальные разряды суммы в восьмеричной и десятичной системе выглядят одинаково, так что и тут противоречий нет.

ответ: 8