VSK

program massive;
var a: array[1..10] of integer;
var i,b,c,d,e,f: integer;
begin
for i:=1 to 10 do
a[i]:=random(401)+100;
writeln('Массив: ');
for i:=1 to 10 do
write(a[i], ' ');
writeln(' ');
writeln('Сумма цифр: ');
for i:=1 to 10 do begin
b:= a[i] div 100;
c:=a[i] mod 100;
d:=c div 10;
e:=c mod 10;
f:=b+d+e;
write(f,' ');
end;
end.