1. Вводиться последовательность ненулевых чисел, 0-конец последовательности. Определить среднее значение элементов последовательности
Program zadacha;
uses crt;
var a:array[1..10]of integer;
i,k,sum:integer;
begin
i:=0; k:=0;
repeat
inc(i);
readln (a[i]) ;
inc(k) ;
until a[i]=0;
sum:=0;
for i:=1 to k do
sum:=sum +a[i];
writeln(sr_znach ,sum/k);
end.
Помог отметь как лучший ответ
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
