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

Const n=20;var a:array[1..n] of integer;i,s:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(90)+10; write(a[i]:3); end;writeln;s:=0;for i:=1 to n do s:=s+a[i] div 10;writeln(\'s = \',s);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.