1. Информатика
  2. Осуществить ввод целых чисел

Осуществить ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён 0) и подсчитать их сумму и среднее арифметическое введённых положительных чисел. использовать оператор repeat.

Svoyaya Svoyaya    2   18.05.2019 16:40    3

Ответы
MaksimSulteev MaksimSulteev  30.09.2020 20:52

program z8_1;
uses crt;
var
i:shortint;
k,n:byte;
s:integer;
sa:real;
begin
clrscr; i:=1;
repeat
read(i);
if i>0 then begin
k:=k+1;
s:=s+i;
end;
until i=0;
sa:=s/k;
write('Количество чисел:',k,' Сумма чисел:',s,'Среднее арифметическое:',sa:4:2);
readkey
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
badmaks00 badmaks00  28.09.2019 09:50
Андрей, боря, витя, гена и дима рисовали зверей. в итоге получилось пять рисунков: черный кот, оранжевый тигр, желтый тигр оранжевый жираф и желтый гепард. определите, кто...
aftorik aftorik  28.09.2019 09:50
Эргономика это наука изучающая взаимодействие для благополучия на рабочем месте....
vulf20 vulf20  09.03.2021 10:52
Определить, блок - схема какого условного оператора изображена на чертеже ​...
джон7777 джон7777  25.06.2019 01:30
Дано натуральное число n. написать программу, выводящую первых n нечетных чисел 1,3,5 (через while)...
DarinaUSA DarinaUSA  25.06.2019 01:30
Вычислить произведение четырех натур.чисел, используя только операцию сложения. (язык пр: pascal) 1) написать программу (обычную) 2) написать программу с использованием процедуры...
ВиталяАрхипов ВиталяАрхипов  18.12.2020 19:35
Файлы, которые находятся в папках прикладных программ, можно перемещать и удалять. верно неверно...
Дерюгин Дерюгин  26.06.2019 02:10
Решить . сканируется цветное изображение размером 3*4 дюйма.расширяющая сканера 700*650dpi,глубина цвета 16 битов.какой информационный обьем будет иметь полученный графический...
Alinkass93 Alinkass93  26.06.2019 02:10
Что выведут на экран фрагменты программ? а) s: =1; for i: = 1 to 5 do if i 2 then s: = s*1; writeln(s); б) s: =0; a: =3; for i: = 1 to 10 do s: =a+1; writeln(s); в) s: =0;...
марлен223 марлен223  26.06.2019 02:10
Решить: что изменится если убрать операторные скобки (слова begin и end)? for i : =1 to 10 do begin writeln(i+1); end;...
mirann2hsjb mirann2hsjb  26.06.2019 02:10
Какое наименьшее число в восьмеричной системе записывается несколькими одинаковыми цифрами, а в шестнадцатеричной - тоже несколькими одинаковыми цифрами, но уже другими....

Популярные вопросы