Найти среднее значение элементов массива из 5 целых чисел.Отсортировать массив простой...

Question

Найти среднее значение элементов массива из 5 целых
чисел.Отсортировать массив простой
выборкой.

Answer 1

//Pascal
var
  A: array [1 .. 5] of integer;
  k, buf, i, j: integer;
  ArithMean: real;
begin
  for i := 1 to 5 do
  begin
    write('A[', i, '] = '); readln(A[i]);
    ArithMean := ArithMean + A[i];
  end;
  for i := 1 to 5 - 1 do
  begin
    k := i;
    for j := i + 1 to 5 do
      if A[j] < A[k] then k := j;
    buf := A[i];
    A[i] := A[k];
    A[k] := buf;
  end;
  for i := 1 to 5 do write(A[i]:4);
  writeln;
  writeln('Среднее арифметическое = ', (ArithMean / 5):0:2);
end.