В одномерном массиве, состоящем из n вещественных элементов, заменить каждый элемент > 0 значением среднего арифметического элементов массива

var
  A: array[1..200] of real;
  n, i: integer;
  S: real;
  
begin
  randomize;
  n := random(200) + 1; //количество элементов массива
  writeln('Вводим массив ', n, ' случайных вещественных чисел:');
  writeln;
  S := 0; //сначала сумма элементов массива равна 0
  for i := 1 to n do
  begin
    a[i] := 200 * random - 100; //случайное вещественное число с интервала (100, 100)
    write('  ', a[i]:0:3);
    S := S + a[i] //к сумме элементов массива прибавляем ещё один
  end;
  S := S / n; //находим среднее арифметическое
  writeln;
  writeln;
  writeln('Среднее арифметическое: ', S:0:3);
  writeln;
  writeln('Заменяем положительные числа массива на среднее арифметическое:');
  writeln;
  for i := 1 to n do
  begin
    if a[i] > 0 then a[i] := S; //положительные числа заменяем
    write('  ', a[i]:0:3)
  end
end.