Склавиатуры ввести массив а (б). найти сумму всех - вопрос №517533 от vladisden 07.04.2023 13:52

Question

Информатика: Склавиатуры ввести массив а (б). найти сумму всех элементов массива. вывести ее на экран, и массив опять

vladisden · 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....