Дано несколько чисел. Вычислите их сумму. Сначала вводите количество чисел 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 ();

}