Advertisement
gorbunova27

Untitled

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