Question

Ввести 30 двузначных чисел и вывести на экран те у которых сумма цифр меньше 10

Answer 1

program prog;
uses crt;

var a: array [1..30] of integer;
    i: integer;

begin
clrscr;

for  i:=1 to 30 do
     begin
          write('a[',i,'] = ');
     readln(a[i]);
     end;

for  i:=1 to 30 do
     begin
     if (abs(a[i]) mod 10)+ (abs(a[i]) div 10) < 10 then
     write (a[i], '  ');
     end;
end.

Answer 2

А что такое abs?

Answer 3

Модуль, на случай, если число будет отрицательным.

Answer 4

Спасибо большое.