PASCAL Массивы

[V666AD]

Дан массив размера N. Сформировать новый массив, в который поместить элементы старого, начиная от k до k+7 позиции. В новом массиве найти среднее арифметическое максимального и минимального элементов.

[Mandrivnyk]

Свое что-то есть? Если нет -- во фриланс.
Или сразу ко мне в аську.
Сделаю очень быстро и недорого.

[V666AD]

Есть! Вот!
var a,b:array[1..100] of integer;
sred:real;
n,min,max,i,z,j,k:integer;
begin
writeln('vvedite n');
readln(n);
for i:=1 to n do
readln(a[i]);
writeln('vvedite k');
readln(k);
z:=1;
for i:=1 to n do
if i=k then
begin
for j:=i to i+7 do
begin
b[z]:=a[j];
inc(z);
end;
end;
min:=b[1];
max:=b[1];
for i:=1 to 7 do
if b[i+1]>min then
max:=b[i+1]
else min:=b[i+1];
sred:=(max+min)/2;
for i:=1 to 8 do
write(b[i],' ');
writeln;
writeln('maximal=',max);
writeln('minimal=',min);
writeln('sred arifm max i min=',sred);
end.

[Mandrivnyk]

for i:=1 to 7 do
if b[i+1]>min then
max:=b[i+1]
else min:=b[i+1];

Надо так:

for i:=2 to 8 do begin
    if b[i] > max then
        max := b[i]
    if b[i] < min then
        min := b[i]
end;

И не забывай форматировать код (кнопочка с решеткой)

ЗЫ еще было бы неплохо сделать проверку на выход за пределы массива. Ну, если, например, исходный массив из 15 элементов, а k вводят равное, к примеру, 11.