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

uses crt;var i,n,summa,a:integer;         m:array [1..1000] of integer;beginclrscr;writeln('Введите размер массива');readln(n);for i:=1 to n dom[i]:=i;if n<99 then a:=n else a:=99;for i:=10 to a dobegin  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;beginwriteln('Массив:');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.