Для заданного целочисленного массива вычислить среднее из элементов, больших 50.Если таких элементов нет, вывести в компонент вывода строку (Элемент не найден). И надо обязательно использовать компонент memo. Помогите доделать завтра надо сдать((((((
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
k,sum:real;
i,a,b:integer;
a:array [1..100] of integer;
begin
k:=0;
sum:=0;
for i := 1 to a do
begin
if (b>50) then
begin
k:=k+1;
sum:=sum+b;
end;
end;
if (sum=0) then
else
end;
end.