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

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

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

program SumAndAverage
va
num, sum, count: integer
begi
sum := 0
count := 0
repea
write('Введите число: ')
readln(num)
if num > 0 the
begi
sum := sum + num
count := count + 1
end
until num = 0
writeln('Сумма положительных чисел: ', sum)
if count > 0 the
writeln('Среднее арифметическое: ', sum / count
els
writeln('Нет положительных чисел для подсчета среднего арифметического.')
end.

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

program SumAndAverage2
va
num, sum, count: integer
begi
sum := 0
count := 0
write('Введите число: ')
readln(num)
while num <> 0 d
begi
if num > 0 the
begi
sum := sum + num
count := count + 1
end
write('Введите число: ')
readln(num)
end
writeln('Сумма положительных чисел: ', sum)
if count > 0 the
writeln('Среднее арифметическое: ', sum / count
els
writeln('Нет положительных чисел для подсчета среднего арифметического.')
end.