Question

дан массив размера N и целые числа K и L(1<= K <=L<=N). Найти сумму элементов массива с номерами от K до L включительно

Answer 1

program z6;
uses crt;
var
a:array[1..260] of shortint;
i,n,k,l:byte;
s:longint;
begin
clrscr;
randomize;
write('Vvedi razmernost massiva='); readln(n);
for i:=1 to n do begin
a[i]:=random(100--100+1)+-100;
write(a[i]:4);
end;
write('Vvedi k='); readln(k);
write('Vvedi l='); readln(l);
for i:=k to l do
s:=s+a[i];
write('Summa chisel s k po l ravna ',s);
readkey
end.