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

значению s не присвоенно значение

Я писал в PascalABC. Там при объявлении переменных они автоматически обнуляются.

var n,k,s:integer;beginrepeat readln(n);if n>0 then begins:=s+n;k:=k+1;end;until n = 0;writeln('Сумма: ',s);writeln('Сред.ариф: ',s div k);end.