Осуществить ввод целых чисел (ввод осуществляется до тех ...
Осуществить ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён 0) и подсчитать их сумму и среднее арифметическое введённых положительных чисел. Использовать оператор repeat.
Есть ответ
17.12.2022
492
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
