Дан целочисленный массив, элементы которого могут принимать значения от 0 до 1000. Разработать алгоритм, который позволяет найти сумму двухзначных элементов массива, сумма цифр которых меньше 10. Количество элементов массива и их задаются в программе.

Uses crt;

var i, n, summa, a:integer;

m:array [1 ... 1000] of integer;

begin

clrscr;

writeln ('Введите размер массива') ;

readln (n) ;

for i:=1 to n do

m[i]:=i;

if n<99 then a:=n else a:=99;

for i:=10 to a do

begin

if (i div 10) + (i mod 10) < 10 then

begin

summa:=summa+i;

end;

end;

writeln (summa) ;

readkey;

end.

Const n=30;

var

x, i, s:integer;

a:array[1 ... n]of integer;

begin

writeln ('Массив:') ;

for i:=1 to n do

begin

x:=random (1000) ;

a[i]:=x;

write (x,' ') ;

if (x>10) and (x<100) and ((x div 10) + (x mod 10) <10) then s:=s+a[i];

end;

writeln;

writeln ('Ответ: ', s) ;

end.