Заполните массив с клавиатуры целыми числами и найдите сумму частей массива

Заполните массив с клавиатуры целыми числами и найдите сумму частей массива с i1-го по i2-й (i1 и i2 вводить с клавиатуры).

Входные данные:
в первой строке целое число n (0 lt; n 100) - кол-во элементов в массиве и целые числа i1 и i2 (0 lt; i1, i2 100). Во 2-ой строке целые числа Х1, Х2,..,Хn разбитые пробелом (числа по модулю не превосходят 32000) - значения частей массива.

Выходные данные:
сумма частей массива c номерами от i1 до i2.

(Написать программку на Паскале)

Задать свой вопрос
2 ответа
За 9 баллов такую программку писать лень:D
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт