Число равных нулю элементов, расположенных после наименьшего нечетного элемента

@Ken3601 · Регистрация: 31.10.2012

Author24 — интернет-сервис помощи студентам

Число равных нулю элементов, расположенных после наименьшего нечетного элемента.
Кому не сложно помогите дописать

Delphi

procedure TForm1.Button27Click(Sender: TObject);
var n:integer;
begin
 j:=0;
 n:=0;
 For i:=1 to 10 do
  if (a[i] < 0) and (i mod 2<>0) then
 
  if a[i] = a[j] then
     j:=i;
 
  Memo1.Lines.Add(IntToStr(j));
 
end;

Одиночка · 07.11.2012, 08:11

Вообще-то это нужно писать так:

Delphi

procedure TForm1.Button27Click(Sender: TObject);
 var n:integer;
 begin
   //Ищем индекс наименьшего нечётного элемента
   j:=1;
   For i:=3 to 10 do
   If (i mod 2)<>0 Then
   if a[i] < a[j] then
   j:=i;
 
   //Ищем число равных 0 после наименьшего нечётного элемента
   n:=0;
   For i:=j+1 to 10 do
   if a[i] = 0 then Inc(n);
 
   Memo1.Lines.Add(IntToStr(n));
 end;

@Ken3601 · 07.11.2012, 08:13 **[ТС]**

Спасибо огромное. все работает отлично!!!

@Ken3601 0 / 0 / 0 Регистрация: 31.10.2012 Сообщений: 29
	07.11.2012, 08:13 [ТС]	3
	Спасибо огромное. все работает отлично!!! 0