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.   Помог отметь как лучший ответ

Проверено на Паскаль АВС   Program Dafnochka; uses crt; var   r,sum: real;   k:integer; begin   writeln('*** alphaues is thinking... ***');   writeln('***          OK             ***');   sum:=0;   k:=0;   r:=1;   writeln('Введите ненулевое число');   writeln('(или введите 0 для конца последовательности) ');   while r<>0 do     begin       write("Ввод:") ;         readln (r);       sum:=sum+r;       k:=k+1;       end;   writeln();   writeln('Всего введено ',k-1,' чисел');   writeln('Среднее значение равно ',sum/(k-1)); end.