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

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

Программа №1:

Program CalculateSumAndAverage;
var
num, sum, count: integer;
average: real;
begin
sum := 0;
count := 0;
repeat
Write('Введите целое число: ');
Readln(num);
if num > 0 then
begin
sum := sum + num;
count := count + 1;
end;
until num = 0;
if count > 0 then
begin
average := sum / count;
Writeln('Сумма введенных положительных чисел: ', sum);
Writeln('Среднее арифметическое введенных положительных чисел: ', average:0:2);
end
else
Writeln('Положительных чисел не было введено');
end.

Программа №2:

Program CalculateSumAndAverage;
var
num, sum, count: integer;
average: real;
begin
sum := 0;
count := 0;
while true do
begin
Write('Введите целое число: ');
Readln(num);
if num = 0 then
break;
if num > 0 then
begin
sum := sum + num;
count := count + 1;
end;
end;
if count > 0 then
begin
average := sum / count;
Writeln('Сумма введенных положительных чисел: ', sum);
Writeln('Среднее арифметическое введенных положительных чисел: ', average:0:2);
end
else
Writeln('Положительных чисел не было введено');
end.