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

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.

Второй вариант выполнения:

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.