Язык паскаль, можно через while написать программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор пока не будет введён ноль) и подсчёт суммы введённых положительных чисел. используйте оператор repeat
taxirkuliev
2
19.05.2019 16:03
4
Другие вопросы по теме Информатика
anma2
14.05.2020 08:27
Dacha111111111
14.05.2020 08:27
bestschool2
11.09.2019 06:30
Елена2028
13.06.2019 12:10
matveye234
13.06.2019 12:10
Savcik
13.06.2019 12:10
alenamarishchu
13.06.2019 12:10
Kirill316111
21.09.2019 13:10
денис1095
21.09.2019 13:10
Популярные вопросы
- Предложения делаем! + -? 5. She (go) to school when they ( meet). 6. I ( read)...
1 - С ФИЗИКОЙ! На шарообразное тело массой 37 кг действует сила притяжения, равная...
3 - Ыполни действия и запиши результаты в виде десятичной периодической дроби.+...
1 - 1.Жазылым . « Сырдария » өлеңі бойынша сұрақтарға жауап бер . 1.Өлеңнің тақырыбы...
2 - Кто и когда разгадал тайну египетских иероглифов? (кратко)...
1 - Назовите вещество вписав в каждую клетку букву цифру или знак ch3...
1 - Найди корень уравнения |-7/8 x|-|-3/5|=-|-3/10|...
1 - нужно выполнить задания 1,2,3,4...
1 - Составьте схемы предложений и определите тип придаточных: -я вспомнил рассказы...
2 - если что это дроби семь восьмых минус четыре пятых...
3
Объяснение:
Pascal
var a,i,s,n:integer;
begin
s:=0;
n:=0;
repeat
readln(a);
if a>0 then begin
n:=n+1;
s:=s+a;
end;
until a = 0;
writeln('Сумма ',s:5,' Среднее арифметическое ',s/n);
end.