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

Question

Информатика

Петр

18 апреля, 08:20

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

+3

Ответы (1)

Знаете ответ на вопрос?

Енюта · Answer 1

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.