Массивы и Циклы в Delphi. Трудности в решении

[Njurca]

Здравствуйте. Есть две задачи на делфи. В первой не получается разобраться с вводом и выводом массива на форму. Во второй - задача с циклом, не получается правильно написать(

[newerow1989]

  n:=Memo1.Lines.Count;
  for i:=1 to n do
  begin
 //form2.memo1.lines[i-1]:=('Îöåíêà ñóäüè ¹ ',i,' = ');

    a[i]:=strtoint(form2.memo1.lines[i-1]);
  end;
  min:=a[1];
  max:=a[1];
  for i:=1 to n do
  begin
    if a[i]<min then
    begin
      min:=a[i];
      k:=i ;
    end;
    if a[i]>max then
    begin
      max:=a[i];
      d:=i;
    end;
  end;
  s:=0;
  for i:=1 to n do
    if (a[i]<>min) and (a[i]<>max) then
      inc(s,a[i]);
  b:=s/(n-2);
  edit1.text:=floattostr (b);
  edit2.text:= inttostr (k);
  edit3.text:= inttostr (d);

Сойдет?

[Stilet]

А куда выводить-то нужно?
И что именно не получается с циклом?

[Njurca]

Вот формулировка задачи: Выступление спортсмена в фигурном катании оценивается n судьями (n>=3). Вывести оценку, полученную спортсменом. Расчет ведется так: из всей совокупности оценок удаляется наиболее высокая и наиболее низкая, а для оставшихся оценок вычисляется среднее арифметическое, которое и идет в зачет спортсмену. Если несколько наиболее высоких оценок, то удаляется только одна, аналогично поступают и с наиболее низкими оценками.
Я не могу ввести и вывести массив на форме в делфи? Или можно решить без использования массива?

Вот еще со второй тоже не выходит( Во второй задаче программа случайным образом в цикле вводит два числа 10 раз. После каждого ввода с случайных чисел, пользователь вводит в поле ответ, программа проверяет и в showmessage выводит правильно или нет. Каждый правильный ответ суммируется. в конце количество баллов и оценка. В паскале код работал, а на форме сообразить не могу как с делать(( Посмотрите, пожалуйста.

На форме есть два поля куда должны случайным образом вводится два числа, после этого пользователь вводит сумму этих чисел и в сообщении выходи правильно или нет. И так проверяется 10 разных пар чисел. Каждый правильный ответ суммируется и в конце оценка. А у меня получается, что при нажатии на кнопку сначала надо ввести ответ, а только потом программа два числа, сумму которых надо подсчитать. и по скольку все это в цикле до 10, на экране 10 раз появляется сообщение, что неправильный ответ. Я не могу всю задачу скинуть( но размеру она большая. Поэтому только код.
А формулировка вот: Предлагается 10 задач на сложение двух целых двузначных. Числа задаются случайным образом. Каждый ответ комментируется "Правильно" или "Вы ошиблись". После выполнения всех заданий выдается количество правильных ответов и выставляется оценка.
В консоле она работает, а на форме не могу сообразить

[newerow1989]

При нажатии на кнопку должен выдавать ответ на ОДНУ задачу, а не 10, поэтому надо там убрать цикл, а то будет

на экране 10 раз появляется сообщение, что неправильный ответ

А эту логику

while i<=10 do
begin
   a:=random(40)+10;
   edit1.Text:=inttostr(a);
   b:=random(80)+20;
   edit2.Text:=inttostr(b);
   sum:=a+b;
   if edit1.text=('') then//вот это мне не понятно
      c:=strtoint(edit3.text);
   if c=sum then begin
      cp:=cp+1; showmessage ('Правильно!')
   end else  showmessage ('Вы ошиблись!') ;
   i:=i+1;
end ;

никак не могу понять!

[Njurca]

Мне нужно, что бы запуске формы и нажатии на кнопку было следующее:
сначала появляются в полях два числа случайных, после этого в другое поле я ввожу ответ в виде суммы этих чисел и таких примеров пользователь должен решить 10. А получается все наоборот: сначала программа требует ввести ответ, а потом появляются случайный числа и выходят сообщения, потому что все это в цикле.
Как ее исправить, чтобы она работала согласно условию?

Я бы отправила исходник задачи, но по объему ее нельзя здесь размещать(( поэтому код только в блокноте(( может поэтому не очень понятно как она работает