Дано несколько чисел. Вычислите их сумму. Сначала вводите количество чисел N, затем...

Question

Дано несколько чисел. Вычислите их сумму. Сначала вводите количество чисел N, затем вводится ровно N целых чисел.

Answer 1

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.

Answer 2

Смотря для какого тебе языка надо, вот для 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 << "Введите количество чисел! ";<br> cin >> N;

for (i = 1; i <= N; i++)<br> {
cout << "Введите число!" ;<br> cin >> a;
Sum = Sum + a;
}
cout << Sum;</p>

_getch();
}