Question

заполнить и распечатать на экране результатов массив целых чисел размером 15 элементов и найти сумму элементов массива

Answer 1

на паскале?
var v:array [1..100] of integer; s,n ,I: integer;
begin
for I:=1 to 15 do
begin
readln(n);
v [I]:=n;
s:=s+n;
end;
for I:=1 to 15 do
writeln (v [I]);
end.