Составьте программу вычисления среднего арифметического отрицательных элементов массива. заранее спасибо!!!
Составьте программу вычисления среднего арифметического отрицательных элементов массива. заранее спасибо!!!
Гость
Ответ(ы) на вопрос:
Гостьuses CRT;
cоnst n = 15;
var b: array [1..n] of Integer; s,p,k: Integer;
begin
clrscr;
for k:=1 to n do readln(b[k]);
s:=0;
p:=0;
for k:=1 to n do if b[k] < 0 then
begin
s:=s+b[k];
p:=p+1;
end;
writeln('Среднее арифм. равно: ', (s/p):9:4);
readkey;
end.
Не нашли ответ?
Похожие вопросы