дан массив размера N и целые числа K и ...

Motes

program z6;uses crt;vara:array[1..260] of shortint;i,n,k,l:byte;s:longint;beginclrscr;randomize;write('Vvedi razmernost massiva='); readln(n);for i:=1 to n do begina[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 dos:=s+a[i];write('Summa chisel s k po l ravna ',s);readkeyend.