найти количество и среднее арифметическое введенных положительных чисел если введенное число 0, ввод чисел прекрашается
Ответы
Ответ дал:
0
//Pascal
var
count, sum, a: integer;
begin
writeln('Ввод чисел. Число 0 заканчивает ввод.');
a := 1;
sum := 0; count := 0;
while a <> 0 do
begin
readln(a);
if a > 0 then
begin
count := count + 1;
sum := sum + a;
end;
end;
writeln('Положительных чисел = ', count);
writeln('Среднее арифметическое = ', sum/count);
end.
var
count, sum, a: integer;
begin
writeln('Ввод чисел. Число 0 заканчивает ввод.');
a := 1;
sum := 0; count := 0;
while a <> 0 do
begin
readln(a);
if a > 0 then
begin
count := count + 1;
sum := sum + a;
end;
end;
writeln('Положительных чисел = ', count);
writeln('Среднее арифметическое = ', sum/count);
end.
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад