Здравствуйте, ogm1!

Смотрите код:
[code lang=pascal h=200]var
a,b:array[1..10]of real;
i,n,k:integer;
s:real;
begin
{вводим размер массива}
repeat
write('Enter N:');
readln(n)
until(1<=n)and(n<=10);
{вводим К}
repeat
write('Enter K:');
readln(k)
until(3<=k)and(k<=n);
{вводим массив}
for i:=1 to n do
begin
write('Enter a[',i,']:=');
readln(a[i])
end;
{контрольный вывод}
writeln('Massiv:');
for i:=1 to n do
write(a[i]:8:4);
writeln;
{среднее арифметическое}
s:=0;
for i:=1 to k do
s:=s + a[i];
a[k]:=s/k;
{выводим результат}
writeln('Result:');
for i:=1 to n do
write(a[i]:8:4);
end.[/code]
Я бы первым вводил К, т.к. при вводе N, к примеру 2, К выйдет за выбранные пределы.
Удачи!