Автор: Наташа 2.05.2004 23:25
Помогите пожалуста с задачей! Очень нужно. В одномерном массиве найти сумму элементов в интервале [a,b], которые указываются с клавиатуры
Заранее огромное спасибо
Автор: Catty 3.05.2004 5:12
Код
uses Crt;
const n=10;
var x:array[1..n] of byte;
i,S,a,b:byte;
begin
clrscr;
writeln('vvedite masiv');
for i:= 1 to n do
read(x[i]);
writeln('vvedite a i b');
read(a,b);
S:=0;
for i:=a to b do
S:=S+x[i];
writeln(S);
end.