Составить две программы на языке Паскаля с помощью операторов цикла До и Пока,которые будут вводить целые числа(до тех пор,пока не будет введен ноль),подсчитывать сумму и среднее арифметическое введеных положительных чисел.
Составить две программы на языке Паскаля с помощью операторов цикла До и Пока,которые будут вводить целые числа(до тех пор,пока не будет введен ноль),подсчитывать сумму и среднее арифметическое введеных положительных чисел.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Программа №1:
program SumAndAverage;var
num, sum, count: integer;
begin
sum := 0;
count := 0;
repeat
write('Введите число: ');
readln(num);
if num > 0 then
begin
sum := sum + num;
count := count + 1;
end;
until num = 0;
writeln('Сумма положительных чисел: ', sum);
if count > 0 then
writeln('Среднее арифметическое: ', sum / count)
else
writeln('Нет положительных чисел для подсчета среднего арифметического.');
end.
Программа №2:
program SumAndAverage2;var
num, sum, count: integer;
begin
sum := 0;
count := 0;
write('Введите число: ');
readln(num);
while num <> 0 do
begin
if num > 0 then
begin
sum := sum + num;
count := count + 1;
end;
write('Введите число: ');
readln(num);
end;
writeln('Сумма положительных чисел: ', sum);
if count > 0 then
writeln('Среднее арифметическое: ', sum / count)
else
writeln('Нет положительных чисел для подсчета среднего арифметического.');
end.