Ответы и объяснения

2014-01-20T20:24:13+04:00
Var
mas:array [ 1..10] of integer;
I,sum:integer;
begin
for I:=1 to 10 do
begin
readln (m [I]);
sum:=sum+m[I];
end;
write ( sum);
readln;
readln
end.