Как получить из двух заданных массивов третий? + см. тему. (Delphi)

[Kawun]

И снова здравствуйте! :-)
И снова у меня вопросы с задачей.

Разработать программу с единтсвенным циклом и ветвлением в теле цикла.

При заданных X1, X2....Xn и Y1, Y2....Yn
получить массив T1, T2....T3
элементы которого получают значения по правилу Ti = max(Xi, Yi)
и подсчитать, сколько элементов Ti получило значение Xi.

Подскажите, пожалуйста, как делается следующее:

элементы которого получают значения по правилу Ti = max(Xi, Yi)
и подсчитать, сколько элементов Ti получило значение Xi.

Подскажите как их можно подсчитать?
Заранее спасибо.

[mihali4]

Подскажите как их можно подсчитать?

Очень просто. Объявляем переменную-счетчик, присваиваем ей 0.
При создании T[i] сравниваем его с x[i] и, если они равны, добавляем к счетчику единичку...

[Kawun]

Эх котелок у меня совсем не варит, вот что-то это не понял:

Сообщение от mihali4

При создании T[i] сравниваем его с x[i] и, если они равны, добавляем к счетчику единичку...

А как это будет выглядеть в виде кода?)

PS: Вот пока моя программка :-)) :

procedure TForm1.Button1Click(Sender: TObject);
const
  NMAX = 20; {Максимальное кол-во элементов массива}
type
  TMas = Array [1..NMAX] of Real;
var
X: TMas; {Исходный массив}
Y: TMas; {Исходный массив}
T: Tmas; {Массив который нам надо получить}
Schetchik: Integer; {Счетчик}
N: Integer; {Кол-во элементoв массива}
begin
N := StrToInt(Edit1.Text);
Schetchik:=0
end;
end.

[Kawun]

да и еще вот как это делать):

элементы которого получают значения по правилу Ti = max(Xi, Yi)

[puporev]

Schetchik:=0;
for i:=1 to n do
if x[i]>y[i] then 
   begin
     t[i]:=x[i];
     Schetchik:=Schetchik+1;
   end
 else t[i]:=y[i];

[Kawun]

Спасибо.
Подправил свой код:

procedure TForm1.Button1Click(Sender: TObject);
const
  NMAX = 20; {Максимальное кол-во элементов массива}
type
  TMas = Array [1..NMAX] of Real;
var
X: TMas; {Исходный массив}
Y: TMas; {Исходный массив}
T: Tmas; {Массив который нам надо получить}
Schetchik: Integer; {Счетчик}
I: Integer; {Параметр цикла}
N: Integer; {Кол-во элементoв массива}
begin
N := StrToInt(EditN.Text); //Задаем N (Кол-во элементов массива)
X[i] := StrToFloat(StringGrid1.Cells[I-1, 0]);//Задаем X
Y[i] := StrToFloat(StringGrid1.Cells[I-1, 1]);// Задаем Y
Schetchik:=0
for I:=1 To N Do
if x[i]>y[i] then
   begin
     t[i]:=x[i];
     Schetchik:=Schetchik+1;
   end
 else t[i]:=y[i];
 end;
 ShowMessage('Кол-во элементов Ti получившее значение Xi' + FloatToStrF(); {Вывод результата}
end;
end.

Но программа спотыкается на этом этапе:

for I:=1 To N Do

пишет, что то ли где-то ; нет, то ли недостает оператора.
Подправте пожалуйста код.
Да и можете помочь с выводом результата, вот что нужно подставить FloatToStrF(!сюда!) что бы он выводился?

Спасибо.

[puporev]

Schetchik:=0

надо Schetchik:=0;

[Kawun]

И снова программа спотыкается
на это раз пишет следующее:
[Hint] Unit1.pas(46): Value assigned to 'S' never used
Выделяет красным это место -

EditR.Text:=FloatToStr(S)

procedure TForm1.Button1Click(Sender: TObject);
const
  NMAX = 20; {Максимальное кол-во элементов массива}
type
  TMas = Array [1..NMAX] of Real;
var
X: TMas; {Исходный массив}
Y: TMas; {Исходный массив}
T: Tmas; {Массив который нам надо получить}
S: Integer; {Счетчик}
I: Integer;
N: Integer; {Кол-во элементoв массива}
begin
N := StrToInt(EditN.Text); //Задаем N (Кол-во элементов массива)
X[i] := StrToFloat(StringGrid1.Cells[I-1, 0]);//Задаем X
Y[i] := StrToFloat(StringGrid1.Cells[I-1, 1]);// Задаем Y
S:=0; //Присваиваем счетчику 0
for I:=1 To N Do
if x[i]>y[i] then
   begin
     t[i]:=x[i];
     S:=S+1;
   end
 else t[i]:=y[i];
 end;
EditR.Text:=FloatToStr(S); //Вывод результата в текстовое поле
end;
end.

[puporev]

1.

const
  NMAX = 20; {Максимальное кол-во элементов массива}
type
  TMas = Array [1..NMAX] of Real;

Это уберите из процедуры вверх, перед var Form1:Tform;
2.S: Integer; {Счетчик}
значит надо EditR.Text:=IntToStr(S); //Вывод результата в текстовое поле
3.Перед этой сточкой лишний end;

[Kawun]

puporev
Поясните пожалуйста по подробней вот это:

1.
Код:

const
NMAX = 20; {Максимальное кол-во элементов массива}
type
TMas = Array [1..NMAX] of Real;
Это уберите из процедуры вверх, перед var Form1:Tform;