Предмет: Информатика,
автор: duska99
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен ноль) и подсчет суммы и среднего арифметического введенных положительных чисел. Используйте оператор repeat.
Ответы
Автор ответа:
0
Программа на Pascal ABC:
Приложения:

Автор ответа:
0
var s,a,i: integer;
begin
cls;
repeat
readln(a);
if a <> 0 then begin
s:=s+a;
i:=i+1;
end;
until a=0;
writeln('Ñóììà: ',s);
writeln('Ñðåäíåå: 's/i);
end.
begin
cls;
repeat
readln(a);
if a <> 0 then begin
s:=s+a;
i:=i+1;
end;
until a=0;
writeln('Ñóììà: ',s);
writeln('Ñðåäíåå: 's/i);
end.
Автор ответа:
0
это текстом
Автор ответа:
0
Я тут запятую забыл (12 строчка): writeln('Среднее: ', s/i);
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: ramina6434
Предмет: Обществознание,
автор: wwwZavylovaIV1988
Предмет: География,
автор: НикРус56