При вычислении максимального значения выдает О

[kerill385884]

задание следующее:
вычислить значение z:=b*cos(2.1*100*a*cos(x)/sqr(a)+sqr(b)+sqr(x))
для х, изменяющегося от х1 до х с шагом h. Определить максимальное и минимальное значение z, а также вычислить среднее арифметическое первых 10 результатов

вото то что я смог сделать:

program laba3;
label 1;
var x,n,min,max, z1,xn,xk,h,z,a,b:real;
k:integer;
e:array[1..26] of real;

begin
write(введите начальное  x,xn=');
readln(xn);
write(введите конечеое x,xk=');
readln(xk);
write(введите шаг h=');
readln(h);
Write(введите a,a=');
read(a);
write(введите b,b=');
read(b);

x:=xn;
1 :z:=b*cos(2.1*100*a*cos(x)/sqr(a)+sqr(b)+sqr(x));
k:=0;
k:=k+1;
e[k]:=z;
x:=x+h;
if x<=xk then goto 1 ;
min:=e[1];max:=e[1];
min:=e[1];max:=e[1];
for k:=2 to 26 do
if e[k]<min then
begin min:=e[k];
end;
writeln(минимальное значение=',min:3:3);

for k:=2 to 26 do
if e[k]>max  then
begin max:=e[k];end;
writeln(максимальное значение=',max:3:3);
readln(x);
end.

пишет что максимальное значение равно O, еще не знаю как найти среднеее арифметическое. Буду благодарен любым советам)

[IIPOTUBBCEX]

первый совет вместо goto использовать ченить другое,
во вторых на сколько я знаю после готу продолжается с того места куда отправил. Так что не понимаю зачем k=0; k+=1; серовно всегда 1 будет равен.
Исправишь это все пиши что получилось.

[kerill385884]

вот что получилось, опять О!
program laba3;
label 1;
var x,n,min,max, z,xn,xk,h,a,b:real;
k:integer;
e:array[1..26] of real;

begin
write('ўўҐ¤ЁвҐ з «мҐ x,xn=');
readln(xn);
write('ўўҐ¤ЁвҐ Є®Ґ x,xk=');
readln(xk);
write('ўҐҐ¤ЁвҐ и Ј h=');
readln(h);
Write('ўўҐ¤ЁвҐ a,a=');
read(a);
write('ўўҐ¤ЁвҐ b.b=');
read(b);

x:=xn;
while x<=xk do
begin
z:=x+1;
k:=0;
k:=k+1;
e[k]:=z;
x:=x+h;
write(e[k]:6:2);

end;
min:=e[1];
for k:=2 to 26 do
if e[k]<min then
begin min:=e[k];
end;
writeln('¬Ё¬ «мҐ §зҐ=',min:3:3);


readln(x);
end.

[Serebro]

Сообщение от kerill385884

вот что получилось, опять О!
...
while x<=xk do
begin
z:=x+1;
k:=0;
k:=k+1;
e[k]:=z;
x:=x+h;
write(e[k]:6:2);

...

В этом коде определяется только e[1].

Также нужно связать между собой три переменные: xk, xn, h.