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

Есть ответ
17.12.2022
357

Ответ


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.


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.