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

Question

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

Answer 1

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.