Дан массив X(N).Найти среднеквадратичное всех элементов массива и заменить этим значение нулевые элементы массива.

[sev48fire]

Дан массив X(N). Найти среднеквадратичное всех элементов массива и заменить этим значение нулевые элементы массива.
Просьба написать программу для pascal abc, если она будет работать правильно то потом скину на электронный ящик 100 руб.

[BDA]

Программа-то простая
Наверное поэтому оплата производится на электронный ящик, а не кошелек

d:=0;
for i:=1 to n do
  d:=d+sqr(x[i]);
d:=sqrt(d);
for i:=1 to n do
  if x[i]=0 then x[i]:=d;

Вот полное решение:

uses
  crt;

const
  n = 10;
  eps = 0.00001;

var
  d: real;
  x: array[1..n] of real;
  i: integer;

begin
  randomize;
  for i := 1 to n do
  begin
    x[i] := (5 - random(10)) / (1 + random(10));
    write(x[i]:0:3, ' ');
  end;
  writeln;
  d := 0;
  for i := 1 to n do
    d := d + sqr(x[i]);
  d := sqrt(d);
  for i := 1 to n do
    if abs(x[i]) < eps then x[i] := d;
  for i := 1 to n do
    write(x[i]:0:3, ' ');
  readln;
end.

[sev48fire]

Друг напиши ее полность от и до с begin и прочим.

[sev48fire]

Адрес кинь.