В заданном массиве А(17) заменить все нулевые элементы средним арифметическим значением,...

Question

В заданном массиве А(17) заменить все нулевые элементы средним арифметическим значением, найденным из всех отрицательных элементов массива. Преобразованный массив вывести на печать.
на языке паскаль!

Answer 1

Var
  a:array[1..17] of real;
  b,c,m,cr:real;
  i,j:integer;

BEGIN
  randomize;
  for i:=1 to 17 do begin
    a[i]:=random(-8,8);
    write(a[i]:3);
  end;
  writeln;
  for j:=1 to 17 do if a[j] < 0 then  begin c:=c+a[j]; m:=m+1; end;
  cr:=c/m;
  for i:=1 to 17 do begin
    if a[i] = 0 then a[i]:=cr;
    write(a[i]:3);
  end;
 
END.

Comments

спасибо большое)))