Поиск суммы

[Janette]

Доброго времени суток. Помогите пожалуйста с решением задачки...

Дан массив целых чисел, состоящий из 15 элементов. Заполнить его с клавиатуры. Выполнить:
найти сумму положительных элементов, значения которых меньше 10;

Заранее огромное спасибо )

[WittySpark]

Задача элементарная.
Вот код:

program task;

{$APPTYPE CONSOLE} // если Pascal, то это не нужно

var
  x: array [1..15] of Integer; // ваш массив
  i: Integer; // счётчик
  s: Integer; // требуемая сумма

begin
  s := 0; // сумма обнуляется
  for i := 1 to 15 do begin // 15 элементов
    Write('x[', i, '] = '); // запрос на ввод данных
    Readln(x[i]); // читаем
    // если положительное и меньше десяти, то прибавляем к S
    if (x[i] > 0) and (x[i] < 10) then s := s + x[i];
  end;
  Writeln(s); // вывод суммы
  Readln;
end.

[Ulex]

А я чё-то задурился.
Написал на masme консольную штучку (massiv.rar-тама всё, и исходник и exe - шник).