Такая простая задача, и ты её не можешь решить, при чём учась в университете! У нас в школе и то сложнее задачи, и любой запросто решить может. Мне вот что интересно: на фиг тебе нужен Memo, когда тебе нужно вывести всего-навсего одно число - количество элементов массива, больше первого? Ответ можно вывести почти на любой компонент, в данном случае лучше всего подоходит Label.
Попробуй такой код:
Code
procedure TForm1.Button1Click(Sender: TObject);
var i, otvet:byte;
begin
otvet:=0;
for I := 1 to stringgrid1.RowCount do
if stringgrid1.Cells[i,0]>stringgrid1.Cells[0,0]
then otvet:=otvet+1;
label1.Caption:='Ответ: '+inttostr(otvet);
end;
Преимущество данного кода - подходит для строки таблицы любой длины. И ещё: цикл for должен начинаться именно с 1, а не с 0, т.к. мы сравниваем элементы массива именно с первым элементом, поэтому сравнивать первый с первым ("а нука-сь, похож я сам на себя или не похож?" ) просто глупо и, тем более, не рационально.
И вообще можно было бы вывести ответ на заголовок формы...Добавлено (19.01.2011, 22:25)
---------------------------------------------
А вообще-то, не очень хорошо вводить данные с таблицы, т.к. мы имеем дело с одномерным массивом, к тому же, таблица своими данными захламляет память. К тому же, всего-навсего 10 значений легко ввести через inputbox, который сразу возвращяет принятые данные. Но для более широких задач обработки массивов, конечно же, лучше подойдёт таблица.