дан одномерный массив, состоящий из 20. элементов вывести введенный массив на экран в строчку. найти сумму элементов массива с номерами от A до B включительно.
Рекомендованый вид экрана:
Ввод элементов массива
Введите 1 элемент массива: 1
Введите 2 элемент массива :2 и тд. До 20
Введите начальный номер элемента массива: 8
Введите конечный номер элемента массива: 15
ОЧИСТКА ЭКРАНА
1 2 3 4 5 6 7 и так до 20сумма элементов массива с номерами с 8 по 15 равна 92
Ответы
Ответ дал:
2
Прога написанная в CodeBlocks:
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL,"Russian");
int a[20];
int b, c, i, q=0;
for(i=1; i<21; i++)
{
cout<<"Введите "<<i<<" число: ";
cin>>a[i];
}
cout<<"Введите начальный номер элемента массива: ";
cin>>b;
cout<<"Введите конечный номер элемента массива: ";
cin>>c;
for(int j=b; j<c+1; j++)
{
q+=a[j];
}
cout<<"Cумма элементов массива с номерами с "<<b<<" по "<<c<<" равна: "<<q;
}
Я надеюсь тебе была нужна прога на С++))
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL,"Russian");
int a[20];
int b, c, i, q=0;
for(i=1; i<21; i++)
{
cout<<"Введите "<<i<<" число: ";
cin>>a[i];
}
cout<<"Введите начальный номер элемента массива: ";
cin>>b;
cout<<"Введите конечный номер элемента массива: ";
cin>>c;
for(int j=b; j<c+1; j++)
{
q+=a[j];
}
cout<<"Cумма элементов массива с номерами с "<<b<<" по "<<c<<" равна: "<<q;
}
Я надеюсь тебе была нужна прога на С++))
Yukoo:
К сожалению нужно на паскале
не проблема сегодня начала учить паскаль, щя скину решение, только я его не могу скопировать хз как... кину скрин
блин не могу кинуть ответ
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.
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.
как-то так
Спасибо
Вас заинтересует
2 года назад
2 года назад
7 лет назад
9 лет назад