0. (на языке Паскаль)
Ответ или решение
var
a, i : integer; // объявляем переменные целочисленного типа.
sum : real; // объявляем переменную вещественного типа.
begin
writeln (‘введите последовательность чисел, окончание ввода — число 0:’);
a := 1; // нужно для выполнения цикла.
while a <> 0 do // начало цикла.
begin
readln (a); // считываем число, введенное с клавиатуры.
if (a = 0) then
write (‘Среднее арифметическое, введенных чисел равно: ‘, round ((sum / i), 2));
sum := sum + a; // считаем сумму введенных чисел.
i := i + 1; // считаем количество введенных чисел.
end;
end.
На нашем сайте представлено множество школьных и студенческих вопросов и ответов на них. Также, вы можете задать свой вопрос или помочь другим учащимся, ответив на существующие вопросы. Для этого пишите ответы в комментариях.
Для того, чтобы найти ответ на ваш вопрос, а он наверняка есть в нашей базе, пользуйтесь формой поиска по сайту!