Информатика, опубликовано 2018-08-22 22:01:57 by Гость
Напишите программу, которая считывает с клавиатуры n чисел и затем выводит на экран сумму и среднее арифметическое отрицательных чисел. в паскаль
Ответ оставил Гость
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
begin
sm:=sm+dg;
nmb:=nmb+1;
end;
end;
writeln(сумма отрицательных чисел = ,sm);
writeln(среднее арифметическое = ,sm/nmb);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на