Форум программистов [Powered by Invision Power Board]

Код

var
i,j,len,k,l:Integer;
summa:Integer;
chisla:array of Integer;      //динамический массив
begin
Randomize;
summa:=0;
len:=StrToInt(Edit1.Text);
k:=StrToInt(Edit2.Text);
l:=StrToInt(Edit3.Text);
if (k<2)or(k>l)or(l>len)then      //так как в динамических массивах нумерация с 0, то твое условие <1 должно быть <2
        begin
        ShowMessage('Не верные K и L');
        exit;
        end;
SetLength(chisla,len);      //установить ссответствующую длину массива
Memo1.Lines.Clear;
for i:=0 to len-1 do
begin
chisla[i]:=Random(200);      //произвольное число
Memo1.Lines.Add(IntToStr(chisla[i]));      //Memo просто для наглядности
end;
for i:=0 to k-1 do
summa:=summa+chisla[i];
for i:=l to len-1 do
summa:=summa+chisla[i];
Edit1.Text:=IntToStr(summa);
end;