Язык паскаль, можно через while написать программу, - вопрос №1541646 от hlebushek225 21.05.2020 08:11

Question

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

hlebushek225 · Answer

Объяснение:Pascalvar 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....