Tobe
7 год назад
Напишите программу, которая считывает с клавиатуры n чисел и затем выводит на экран сумму и среднее арифметическое отрицательных чисел. в паскаль
ОТВЕТЫ
Вячеславович
Aug 13, 2019
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 dglt;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 dglt;0 then
begin
sm:=sm+dg;
nmb:=nmb+1;
end;
end;
writeln(сумма отрицательных чисел = ,sm);
writeln(среднее арифметическое = ,sm/nmb);
end.
263
