С клавиатуры ввести массив А (Б). Найти сумму всех элементов массива. Вывести ее на экран, и массив опять

Question

С клавиатуры ввести массив А (Б). Найти сумму всех элементов массива. Вывести ее на экран, и массив опять

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a:array [1..1000000] of longint; N,S,i:longint; begin Readln(N); For i:=1 to N do begin Read(a[i]); S:=S+a[i]; end; Readln; Writeln(S); For i:=1 to N do Write(a[i],' '); end.