Составить две программы на языке Паскаля с помощью операторов цикла До и Пока,которые будут вводить целые числа(до тех пор,пока не будет введен ноль),подсчитывать сумму и среднее арифметическое введеных положительных чисел.

Предыдущий
вопрос Следующий
вопрос

Программа №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.