Задание:
Составить проект. Вычислить среднее арифметическое отрицательных элементов массива С1, С2… С30, пологая, что в массиве есть отрицательные значения. (это нужно сделать в паскале.)
Решение:
varc: array[1… 30] of integer; i,n,k: integer; beginn: =0; k: =0; for i: =1 to 30 doreadln (c[i]); for i: =1 to 30 do beginif c[i]<0 then beginn: =n+1; k: =k+c[i]; end; end; writeln ('srednee=', k/n) end.
Знаете другой ответ?