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

2013-05-29T13:55:50+04:00

const n=30;
var
a:array[1..n] of integer;
i,j,s:integer;
begin
for i:=1 to n do
readln(a[i]);
s:=0;
for i:=1 to n do
if (a[i]<100) and (a[i]>9) and ((a[i] div 10)>(a[i] mod 10)) then s:=s+a[i];
write(s);
end.