Найдите сумму первых 10 чисел (1 2 3 4 5 6 7 8 9 10) ** языке Паскаль

Question

Найдите сумму первых 10 чисел (1 2 3 4 5 6 7 8 9 10) на языке Паскаль

Answer 1

Var
a: array[1..10] of integer;
k; integer;
Begin
For k:=1 to 10 do begin
Read(a[k]);
s:=s+a[k];
end;
Writeln(s)
Readln;
end.

Comments

Мне кажется не обязательно с массивом. Можно и просто через for

---

напиши как