Дано несколько чисел. Вычислите их сумму. Сначала вводите количество чисел N, затем вводится ровно N целых чисел.
Дано несколько чисел. Вычислите их сумму. Сначала вводите количество чисел N, затем вводится ровно N целых чисел.
Ответ(ы) на вопрос:
uses crt;
var a,n,s:integer;
begin
clrscr;
write('Введите количество чисел: '); read(n);
writeln('Введите числа:');
for n:=1 to n do
begin
read(a);
s:=s+a;
end;
write('Сумма введенных чисел: ',s);
end.
Смотря для какого тебе языка надо, вот для VisualBasic Sub Neskolko_Chisel Dim Sum, i, a, N As Integer N = InputBox("Введите количество чисел") For i = 1 to N a = InputBox("Введите число") Sum = Sum + a Next i End Sub вот для с++ #include
#include
using namespace std; int main()
{
setlocale(LC_ALL, "Russian");
int a, N, Sum, i;
Sum = 0;
N = 0;
a= 0;
cout << "Введите количество чисел! ";
cin >> N; for (i = 1; i <= N; i++)
{
cout << "Введите число!" ;
cin >> a;
Sum = Sum + a;
}
cout << Sum; _getch();
}
Не нашли ответ?
Похожие вопросы