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

Question

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

Comments

pascal

---

begin var integer и все в этом роде

---

турбо

---

и7

---

спасибо

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.