Дан целочисленный массив, элементы которого могут принимать значения от 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.