Дан массив целых чисел. найти сумму элементов массива, принадлежащих промежутку от g до t, вводимых с клавиатуры.
sarah205682
1
17.03.2019 10:10
4
Другие вопросы по теме Информатика
ILoveChemistry2
05.09.2019 23:10
Danyka47
05.09.2019 23:10
Atiko88
04.07.2019 10:50
nasty1512200229
29.11.2021 21:14
art021220001
29.11.2021 21:15
Умник1997337
16.03.2022 10:27
kitten0908
16.03.2022 10:27
azhiltsova15ozb142
16.03.2022 10:43
KlarissaStet
16.03.2022 10:45
Alina2496
12.05.2020 12:28
Популярные вопросы
- Впробирке находится неизвестное вещество, установлено, что наличие его ионов...
1 - Автомобиль проехал 200 м за 30 секунд следующий 500 м за 5 минут определите...
1 - Составить план пересказ дубровский по плану. 1) героев 2) владимир отказывается...
2 - От стороны развернутого угла аов в одну полуплоскость отложены zaok = 40°и...
2 - Определить силу взаимодействия между проводниками на длине 2м, которые размещены...
2 - Латын әліпбиіне көшу қаншалықты маңызды эссе керек...
2 - Выберите правильные варианты!...
1 - Вариант1) авсдавсд куб. укажите три прямые, проходящие: а) через точку а...
3 - Угол с=90°, в =6, с=14 . найти сторону с, угол в , угол с...
3 - Кто решит тест по 30б.вот ссылка 1 вариант 1 тест...
3
Program prim;
Var A:array[1..10] of integer;
i,N,S:integer;
begin
Writeln('Ввод N');
Readln(N);
For i:=1 to N do
begin
Writeln('Ввод ',i, ' эл.массива');
Readln(A[i]);
end;
S:=0;
For i:=1 to N do
S:=S+A[i];
Writeln('S = ', S);
Readln;
end.