напишите программу, которая считывает с клавиатуры n чисел и затем выводит на экран сумму и среднее арифметическое отрицательных чисел. в паскаль
Ответы
Ответ дал:
0
var i,n,nmb: integer;
dg,sm: real;
begin
sm:=0; nmb:=0;
write('n = ');
readln(n);
write('числа через пробел: ');
for i:=1 to n do
begin
read(dg);
if dg<0 then
begin
sm:=sm+dg;
nmb:=nmb+1;
end;
end;
writeln('сумма отрицательных чисел = ',sm);
writeln('среднее арифметическое = ',sm/nmb);
end.
dg,sm: real;
begin
sm:=0; nmb:=0;
write('n = ');
readln(n);
write('числа через пробел: ');
for i:=1 to n do
begin
read(dg);
if dg<0 then
begin
sm:=sm+dg;
nmb:=nmb+1;
end;
end;
writeln('сумма отрицательных чисел = ',sm);
writeln('среднее арифметическое = ',sm/nmb);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад