Вычитание отрезков Опции

[Вацура]

Доброе утро!
Задано n отрезков. Берут 2 отрезка, и из большего вычитают меньший, большему присваивают значение разности этих отрезков, потом сравнивают знач разности со следующим отрезком, и от большего отнимают меньшее присваивая знач разности большему отрезку, так делают до тех пор, пока не останется одно число.
Какое это число.

Вот что я делал:

uses crt;
var n,i,ln:integer; l:array [1..10] of real;
begin clrscr;
readln(n); {Koli4estvo otrezkov}
for i:=1 to n do
 begin
 readln(l[i]);
 end;
ln:=l[1];
for k:=1 to n-1 do
 begin
 if ln<l[k+1] then ln:=l[k+1]-ln else ln:=ln-l[k+1];
 end;
writeln(ln);
readln;
end.

Выдаёт ошибку 26 на этих строках(точнно не пойму где):

ln:=l[1];
for k:=1 to n-1 do

В чём ошибка?

[sonic]

Доброе утро!
Задано n отрезков. Берут 2 отрезка, и из большего вычитают меньший, большему присваивают значение разности этих отрезков, потом сравнивают знач разности со следующим отрезком, и от большего отнимают меньшее присваивая знач разности большему отрезку, так делают до тех пор, пока не останется одно число.
Какое это число.

Вот что я делал:

uses crt;
var n,i,ln:integer; l:array [1..10] of real;
begin clrscr;
readln(n); {Koli4estvo otrezkov}
for i:=1 to n do
 begin
 readln(l[i]);
 end;
ln:=l[1];
for k:=1 to n-1 do
 begin
 if ln<l[k+1] then ln:=l[k+1]-ln else ln:=ln-l[k+1];
 end;
writeln(ln);
readln;
end.

Выдаёт ошибку 26 на этих строках(точнно не пойму где):

ln:=l[1];
for k:=1 to n-1 do

В чём ошибка?

Здесь ошибка в том, что ты обьявил переменную ln целочисленного типа, а массив l - вещественного типа.
Исправь var таким образом и думаю все получится:

var n,i:integer; ln:real; l:array [1..10] of real;

И ещё ты забыл обьявить переменную-счетчик k:

k:integer;

Сообщение отредактировано: sonic - 23.12.2006 13:58

[Вацура]

Ты прав, спасиб.