Вот в QBasic. может, это поможет
Пуск-завершение работы или принудительное
Эм, ищем сумму элементов которые меньше первого и первого
var
k, m: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 45;Dat[2] := 55;
Dat[3] := 40;Dat[4] := 15;
Dat[5] := 20;Dat[6] := 80;
Dat[7] := 35;Dat[8] := 70;
Dat[9] := 10;Dat[10] := 45;
m := Dat[1];
for k := 2 to 10 do
if Dat[k] < Dat[1] then
m := m + Dat[k];
write(m);
end.
Вывод 165