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

Ответ:

denisgolubev1

24.07.2020 16:30

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.

0,0(0 оценок)

Популярные вопросы: Информатика

Joshler0canon

12.07.2022 02:47

Exel. формула Есть две ячейки. В одну я пишу число, а во вторую выводит результат. Нужно: ввожу к примеру 30 и выбивает во вторую, сколько это от числа 12. К примеру 2,13. Или ввожу...

llopatniseva

09.09.2022 05:32

Естественные информационные процессы Искусственные информационные процессы а) сохранение информации на флеш-накопитель; б) общение между людьми по телефону; в) выполнение операций...

АлсушкаСушка

14.01.2022 20:24

Программа генерирует пароли длиной 10 символов. В качестве символов используют 20 различных букв и десятичные цифры в любом порядке. Каждый такой пароль записывается минимально возможным...

HelloyKiss

09.09.2020 21:15

Написать программу, которая для чисел в диапазоне от A до B определяла количество их делителей. К при- меру, A= 10, B = 15. Делители для числа 10 — 1 2 5 10; Делители для числа 11...

Cru555her

20.01.2023 18:08

Вот алгоритм, описанный на псевдокоде. 1) Определите, что будет выведено при А=12 и В=15. 2) Объясните операнд НЕ, когда x 1. Например, я понимаю, что НЕ 0 будет 1, НЕ 1 будет 0....

Топовая20171

08.05.2021 04:06

Exel. Запишите две суммы в одну ячейку с выбором в большую сторону. Нужно что бы из: СУММ(A1/A2) = результат в ячейку A4 СУММ(B1/B2) = результат в ячейку А4 и в ячейку А4 попадал...

dianochka17dor

25.04.2023 15:02

Доступ к файлу name.gif, находящемуся на сервере jour.com, осуществляется по протоколу ftp. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих...

Лавданим

29.12.2020 03:40

Определите количество натуральных значений А, не превосходящих 100, для которых логическое выражение not X mod A 0 → X mod 7 = 0 Λ X mod 5 = 0 истинно при любом целочисленном X....

fima9

23.06.2021 00:03

Exel. Как округлить сумму? У меня в ячейке F4 уже есть формула: =СУММ(B4/D4) , мне надо что бы это же число округлило по формуле: =ОКРУГЛВВЕРХ(F4;0). Пишу формулу: =СУММ(B4/D4)&...

fucgxrxgv

16.02.2022 18:25

Python. Профессиональный спортсмен пробегает 1500 метров приблизительно за три с половиной минуты. Мировой рекорд принадлежит марокканскому спортсмену Хишам Эль-Герружу, который...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку