Задание:
Осуществить ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен 0) и подсчитать их сумму и среднее арифметическое введенныхположительных чисел. Использовать оператор repeat.
Решение:
program z8_1; uses crt; vari: shortint; k,n: byte; s: integer; sa: real; beginclrscr; i: =1; repeatread (i); if i>0 then begink: =k+1; s: =s+i; end; until i=0; sa: =s/k; write ('Количество чисел: ',k,' Сумма чисел: ',s,'Среднее арифметическое: ',sa: 4:2); readkeyend.
Знаете другой ответ?