• Вопрос по информатике:

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

    • Автор:

      swanson

  • Ответ:

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

    • Отвечал:

      trufflesyigg
    • 0

    Ответ:

    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.

    • Отвечал:

      tristan9xyc
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска