Дано несколько чисел. Вычислите их сумму. Сначала вводите количество чисел 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(); }
Не нашли ответ?
Ответить на вопрос
Похожие вопросы