[lmikle]

Alegun, ну ты совсем обленился, в лоб решаешь
2й и 3й циклы можно ж объединить:

Код:

s := 0;
b := 0;
for i := 1 to 100 do
  if a[i] > 50 then
    begin
      s := s + a[i];
      inc(b);
    end;

if b = 0
  then memo1.lines.add('Элемент не найден')
  else memo1.lines.add(FloatToStr(s/b));