Найти сумму всех элементов массива А, у которых число десятков (вторая с конца цифра десятичной записи) больше, чем число единиц.

Type mas = Array [1 ... 100] of integer;

var

a:mas;

i, c, b, n, s:integer;

begin

randomize;

writeln ('введите размер массива n<=100 ') ;

readln (n) ;

for i:=1 to n

do A[i]=random (-50,50) ;

for i:=1 to n

do begin

c:=A[i] mod 10;

b:=A[i] div 10;

if b>c then

s+=A[i];

end;

writeln (s) ;

end.