Дан одномерный массив. Найти сумму элементов с k-ого по p-ый. Спасибо))

1

Ответы и объяснения

Лучший Ответ!
2014-02-10T19:08:44+04:00
Program qq;
var a:array[1..длина массива] of real;
     i, k, p:integer;
     sum:real;
begin
 sum:=0;
 for i:=1 to длина массива do read(a[i]);
 for i:=k to p do sum:=sum+a[i];
 writeln(sum);
end.