Дан целочисленный массив, элементы которого могут принимать значения от 0 до 1000....

Question

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

Answer 1

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;<br>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.

Comments

Массив заполняется от 1,2,3,4..n

Answer 2

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];<br>  end; 
writeln;
writeln('Ответ: ',s); 
end.