Предмет: Информатика,
автор: HannahMoore
С клавиатуры ввести массив А (Б). Найти сумму всех элементов массива. Вывести ее на экран, и массив опять
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Математика,
автор: sattarovaumida2008
Предмет: Русский язык,
автор: amininjon64mk
Предмет: Қазақ тiлi,
автор: kzakstan2
Предмет: Физика,
автор: Аноним