Advertisement
Varvara_Golovnova

Untitled

Sep 6th, 2024
15
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.18 KB | None | 0 0
  1. var
  2. a : array [1..10] of longint;
  3. sum,i : longint;
  4. begin
  5. for i:=1 to 10 do
  6. readln(a[i]);
  7. sum:=0;
  8. for i:=1 to 10 do
  9. sum:=sum+a[i];
  10. writeln(sum);
  11. end.
  12.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement