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

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.