18 lines
278 B
ObjectPascal
18 lines
278 B
ObjectPascal
program main;
|
|
var
|
|
arr: array[0..5] of integer;
|
|
sum, i: integer;
|
|
begin
|
|
arr[0] := 1;
|
|
arr[1] := 2;
|
|
arr[2] := 33;
|
|
arr[3] := 4;
|
|
arr[4] := 5;
|
|
arr[5] := 6;
|
|
sum := 0;
|
|
for i := 0 to 5 do
|
|
begin
|
|
sum := sum + arr[i];
|
|
end;
|
|
write(sum);
|
|
end. |