CРОЧНО ПОЖАЛУЙСТА,НУЖНО НАПИСАТЬ ПРОГРАММЫ.
1.Дан массив содержащий 15 элементов ,найти сумму максимального и минимального элементов.
2.Найти среднее арифметическое элементов массива.

Var
  arr: array[1..15] of integer;
  min, max, i, sum: integer;

begin
  min := MaxInt;
  max := -(MaxInt);
  for i := 1 to 15 do
  begin
    readln(arr[i]);
    if arr[i] > max then max := arr[i];
    if arr[i] < min then min := arr[i];
    sum := sum + arr[i];
  end;
  writeln(Сумма максимального и минимального элементов = , max + min);
  writeln(Среднее арифметическое элементов массива = , sum/15);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.