Дан массив размера 20 и целые числа K и L. Найти сумму элементов массива с номерами от K до L включительно
Дан массив размера 20 и целые числа K и L. Найти сумму элементов массива с номерами от K до L включительно
Гость
Ответ(ы) на вопрос:
Гостьvar ar:array[1..20] of integer;
k,l,a,b:integer;
begin
randomize;
readln(k);
readln(l);
for a:=1 to 20 do
ar[a]:=random(a);
for a:=k to l do
b:=b+ar[a];
writeln(b);
end.
Не нашли ответ?
Похожие вопросы