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

Ответы 2

  • спасибо большое)))
  • 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.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years