Заполните массив с клавиатуры целыми числами и найдите сумму элементов массива с i1-го по i2-й (i1 и i2 вводить с клавиатуры).Входные данные:в первой строке целое число n (0 меньше n ≤ 100) - кол-во элементов в массиве и целы...
Заполните массив с клавиатуры целыми числами и найдите сумму элементов массива с i1-го по i2-й (i1 и i2 вводить с клавиатуры).
Входные данные:
в первой строке целое число n (0 < n ≤ 100) - кол-во элементов в массиве и целые числа i1 и i2 (0 < i1, i2 ≤ 100). Во второй строке целые числа Х1, Х2,..,Хn разделенные пробелом (числа по модулю не превосходят 32000) - значения элементов массива.
Выходные данные:
сумма элементов массива c номерами от i1 до i2.
(Написать программу на Паскале)
Гость
Ответ(ы) на вопрос:
Гостьvar
a:array [1..100] of longint;
N,i1,i2,i,S:longint;
begin
Read(N,i1,i2);
For i:=1 to N do Read(a[i]);
For i:=i1 to i2 do S:=S+a[i];
Write(S);
end.
Гостьза 9 баллов такую программу писать лень:D
Не нашли ответ?
Похожие вопросы