Дан целочисленный массив размером 18 элементов. найти сумму чисел меньше 10.
паскаль​

const N=18;

var  

mas: array[1..N] of integer;

i,sum: integer;

begin

  sum:=0;

  write('Введите элементы массива: ');

 for i:=1 to N do

   begin

   write(i, ' элемент: ');

   readln(mas[i]);

   if mas[i] < 10 then

     sum:=sum+mas[i];

   end;

      writeln('Сумма элементов массива меньших 10: ', sum);

end.

Объяснение:

program ArraySum;

var

   Numbers : array[1..18] of real;

   Result : real;

   i : integer;

begin

   Result := 0;

   for i:= 1 to 18 do begin

       Write('Input ', i ,'th element of array');

       ReadLn (Numbers[i]);

   end;

   for i:= 1 to 18 do begin

       if Numbers[i] < 10 then Result := Result + Numbers[i];

   end;

   Writeln('Result = ', Result:5:2);

end.