вычесление суммы

[Dartchuwak]

http://imageshost.ru/links/9b49a2c26...be94bd44b44c2c

помогите пожлуйста!

[Alar]

Dartchuwak, что за картинка, даже текст задачи трудно напечатать?

[maladoy]

sum:=0;
for i:=1 to m do
begin
x[i]= 1,5+0,1*i;
s[i]=(sqr(x[i])-3*x[i]+2)/sqrt(2*sqr(x[i])-1);
sum:=sum+s[i];
end

[maladoy]

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

Dartchuwak, что за картинка, даже текст задачи трудно напечатать?

с его орфографией уж лучше картинка .......

[Dartchuwak]

Чет как-то не очень понятно(

[maladoy]

чего не понятно то?????

[Dartchuwak]

Ввод и вывод.Я просто во всем этом оч плохо разбираюсь.

[maladoy]

program summa;
uses crt;
var
i,m:integer
x:array[1..1000] of real;
s:array[1..1000] of real;
sum:real;
begin
clrscr;
writeln('vvedite m');
readln(m);
sum:=0;
for i:=1 to m do
begin
x[i]:= 1,5+0,1*i;
s[i]:=(sqr(x[i])-3*x[i]+2)/sqrt(2*sqr(x[i])-1);
sum:=sum+s[i];
end;
writeln('summa=',sum);
end.

[Dartchuwak]

Чёт не пашет(

[maladoy]

че пишет то хоть???