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

Массив вводится с клавиатуры

program sum1;var a:array[1..20] of integer; k,i:integer;begink:=0;

write('vvedite massiv'); for i:=1 to 20 do begin read(a[i]); k:=k+ a[i] div 10; end; readln; write('summa = ',k); readln; end.

это через клаву

Спасибо

program sum1;var a:array[1..20] of integer; k,i:integer;begink:=0;randomize;for i:=1 to 20 dobegina[i]:=random(90)+10;write(a[i],' ');k:=k+ a[i] div 10;end;readln;write('summa desyatkov = ',k);readln;end.