Программирование операций обработки одномерных массивов

[Дима82]

Ну, да, надо на все и вывести среднее арифметическое, и вывести деление на экран

разделить на него все элементы массива.

[Карась]

Тогда надо немного доработать.

Writeln;
if B <> 0 Then
  Bigin
    Write('Sred. Arif. = '); Writeln(Sum/B:2:2); Writeln;
    Sum := Sum/B;
      For i := 1 To M Do
        Begin
          Write('K[',i,']/',Sum:2:2,' = '); Writeln(K[i]/Sum:2:2);
        End;
  End;
Else
  Writeln('Error');

[Дима82]

Спасибо тебе, Карась!