В заданном массиве А(17) заменить все нулевые элементы средним арифметическим значением, найденным из всех отрицательных элементов массива. Преобразованный массив вывести на печать. на языке паскаль!
Ответы:
04-02-2014 03:51
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.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «В заданном массиве А(17) заменить все нулевые элементы средним арифметическим значением, найденным из всех отрицательных элементов массива. Преобразованный массив вывести на печать. на языке паскаль!» от пользователя Демид Матвеенко в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!