Дан массив размера 20 и целые числа K и L. Найти сумму элементов массива с номерами от K до L включительно

Question

Информатика

Таша

12 апреля, 05:37

Дан массив размера 20 и целые числа K и L. Найти сумму элементов массива с номерами от K до L включительно

+4

Ответы (1)

Знаешь ответ?

Протас · Answer 1

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.