Делфи 7. Дан массив A размера N. Найти минимальный элемент из его элементов с четными номерами: A2, A4, A6, ...

[nadyaH]

Дан массив A размера N. Найти минимальный элемент из его элементов с четными номерами: A2, A4, A6, ... .
Нужна помощь в написании программы.

[Vanta11a]

Ичё?

for i:=o to n do
bеgin
if (i mоd 2 = 0) and (a[i] < min) thеn ...
end

[Stilet]

nadyaH

А можешь показать ввод массива?

[nadyaH]

type  {+}
  TArray = array[1..100] of Integer;
function ArrayToString(a: TArray; N: integer): string;
var
  i: integer;
begin
  result := '';
  for i:=1 to N-1 do
    result := result  + IntToStr(a[i])+',';
  result := result  + IntToStr(a[i]);
end;

function Chet(a: TArray; N: integer; var min : integer): string;
var
  i: integer;
begin
  result := '';
  Min:=A[2];
for i:= 2 to N do
   if A[2*i]<Min then Min:=A[2*i];
   result := IntToStr(Min);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,N: integer;
x: TArray;

begin
randomize;
N:=StrToInt(Edit1.Text);
 for i:=1 to N do
 x[i] := random(100);

RichEdit1.Lines.Clear;
RichEdit1.Lines.Append('массив: ' + ArrayToString(x,N));
RichEdit1.Lines.Append('ответ:'+Chet(x,N);
end;
end.

Вот что то написала, но где то ошибка.

[nadyaH]

type  
  TArray = array[1..100] of Integer;
function ArrayToString(a: TArray; N: integer): string;
var
  i: integer;
begin
  result := '';
  for i:=1 to N-1 do
    result := result  + IntToStr(a[i])+',';
  result := result  + IntToStr(a[i]);
end;

function Chet(a: TArray; N: integer; var min : integer): string;
var
  i: integer;
begin
  result := '';
  Min:=A[2];
for i:= 2 to N do
   if A[2*i]<Min then Min:=A[2*i];
   result := IntToStr(Min);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,N: integer;
x: TArray;

begin
randomize;
N:=StrToInt(Edit1.Text);
 for i:=1 to N do
 x[i] := random(100);

RichEdit1.Lines.Clear;
RichEdit1.Lines.Append('массив: ' + ArrayToString(x,N));
RichEdit1.Lines.Append('ответ:'+Chet(x,N);
end;
end.

Вот что то написала, но где то ошибка.

[eoln]

А что за ошибка?

for i:= 2 to N div 2 do
   if A[2*i]<Min then Min:=A[2*i];

И переменную min из function Chet можно не возвращать через var
Может и ещё что есть, смотрел "с разбега"

[Serge_Bliznykov]

а так?

function Chet(a: TArray; N: integer): string;
var
  i, Min : integer;
begin
  result := '';
  Min := a[2];
  i := 2;
  while i<=N do begin
    if a[i]<Min then Min := a[i];
    i := i + 2;
  end;
  result := IntToStr(Min);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,N: integer;
  x: TArray;

begin
  randomize;
  N:=StrToInt(Edit1.Text);
  for i:=1 to N do
      x[i] := random(100);

  RichEdit1.Lines.Clear;
  RichEdit1.Lines.Append('массив: ' + ArrayToString(x,N));
  RichEdit1.Lines.Append('Минимальное значение : '+ Chet(x,N));
end;

[nadyaH]

function Chet(a: TArray; N: integer): string;
var
  i,min: integer;
begin
  result := '';
  Min:=A[2];
for i:= 2 to N do
   if A[2*i]<Min then Min:=A[2*i];
   result := IntToStr(Min);
end;

Ответ выводит правильно.
Но если кол-во чисел в массиве 2 ,3, то ответ выдаёт 0.
А при кол-ве чисел 1 программа выдаёт ошибку.

[Vanta11a]

Ну так

  Min:=A[2];

Естественно, что с 1 элементом будет печалька. Надо обрабатывать такие моменты, например проверять число элементов массива.

[nadyaH]

Изменила так

function Chet(a: TArray; N: integer): string;
var
  i,min: integer;
begin
  result := '';
  Min:=A[2];
If N=0 then
result:='Их нету';
If (N=2)or(N=3) then
Begin
Result:= IntToStr(Min);
End
else
begin
for i:= 2 to N do
   if A[2*i]<Min then Min:=A[2*i];
   result := IntToStr(Min);
end;
end;

То при 1 в этой строке:

result := result  + IntToStr(a[i]);

возникает ошибка.