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

Question

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

Answer 1

Const n=20;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
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.

Пример:
 22 88 88 98 54 78 45 89 23 39 13 17 15 38 56 80 51 31 20 30
s = 88