Дан массив из 20 целых чисел заполненный случайным образом от 10 до 99. Найти сумму десятков (пример: первых чисел из 19 и 23 найти сумму 1 и 2)

Program sum1;

var a:array[1 ... 20] of integer; k, i:integer;

begin

k:=0;

randomize;

for i:=1 to 20 do

begin

a[i]:=random (90) + 10;

write (a[i],' ');

k:=k + a[i] div 10;

end;

readln;

write ('summa desyatkov = ', k);

readln;

end.