Дан одномерный массив, состоящий из 20. элементов вывести введенный массив ** экран в...

Question

Дан одномерный массив, состоящий из 20. элементов вывести введенный массив на экран в строчку. найти сумму элементов массива с номерами от A до B включительно.

Рекомендованый вид экрана:
Ввод элементов массива
Введите 1 элемент массива: 1
Введите 2 элемент массива :2 и тд. До 20
Введите начальный номер элемента массива: 8
Введите конечный номер элемента массива: 15
ОЧИСТКА ЭКРАНА
1 2 3 4 5 6 7 и так до 20сумма элементов массива с номерами с 8 по 15 равна 92

Answer 1

Прога написанная в CodeBlocks:
#include
using namespace std;
int main()
{   
     setlocale(LC_ALL,"Russian");   
     int a[20];   
     int b, c, i, q=0;   
     for(i=1; i<21; i++)   <br>    {       
         cout<<"Введите "<<i<<" число: ";        <br>         cin>>a[i];   
    }   
    cout<<"Введите начальный номер элемента массива: ";    <br>cin>>b;
    cout<<"Введите конечный номер элемента массива: ";    <br>cin>>c;
    for(int j=b; j    {     
         q+=a[j];   
    }   
    cout<<"Cумма элементов массива с номерами с "<<b<<" по "<<c<<" равна: "<<q;<br>}
Я надеюсь тебе была нужна прога на С++))

Comments

К сожалению нужно на паскале

---

не проблема сегодня начала учить паскаль, щя скину решение, только я его не могу скопировать хз как... кину скрин

---

блин не могу кинуть ответ

---

var a : array [1..20] of integer;
i, s, d, q, j: integer;
begin
for i:=1 to 20 do
begin
WriteLn('Vvedite ',i,' chislo: ');
Readln(a[i]);
end;
WriteLn('Vvedite nachalni promejytok: ');
Readln(s);
WriteLn('Vvedite konechni promejytok: ');
Readln(d);
for j:=s to d do
q:=a[j]+q;
WriteLn('Summ: ',q);
end.

---

как-то так

---

Спасибо