Комментарии 3

• Неправильно работает для набора типа: 2 21 2 11.
  Предлагаю:

  Program Minmax30; var a,amax,k,kmin,kmin1,N:integer; begin write('Количество чисел в наборе N: '); read(N); kmin1:=N; write('Введите набор ',N,' чисел:'); for var i:=1 to N do begin read(a); if i=1 then amax:=a; if a=amax then begin inc(k); kmin:=k; end; if a<amax then begin if kmin<kmin1 then kmin1:=kmin; k:=0; end; if a>amax then begin kmin:=1; amax:=a; k:=1; end; end; if kmin<=kmin1 then kmin1:=kmin; write('Минимальное количество подряд идущих максимальных элементов: ',kmin1); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

  Program Minmax30; var a,amax,k,kmin,kmin1,N:integer; begin write('Количество чисел в наборе N: '); read(N); kmin1:=N; write('Введите набор ',N,' чисел:'); for var i:=1 to N do   begin    read(a);    if i=1 then amax:=a;    if a=amax then      begin       inc(k);       kmin:=k;      end;    if a<amax then     begin      if kmin<kmin1 then      kmin1:=kmin;      k:=0;     end;       if a>amax then    begin      kmin:=1;      amax:=a;      k:=1;     end;       end;   if kmin<=kmin1 then kmin1:=kmin;   write('Минимальное количество подряд идущих максимальных элементов: ',kmin1); end.

  Ответить

• program minmax30; var n,z,maxz,i,min:integer; begin writeln ('количество чисел в наборе (N):'); readln (n);// считываем количество элементов min:=n; // присвоим ответу максимально возможное значение for var ii:=1 to n do //вход в цикл begin writeln (ii,' число:'); readln (z); //считываем значение if z>maxz then // если введенное значение больше максимума,то begin maxz:=z; //переменной максимального значения присвоим текущее значение i:=1; //в счетчик максимальных значений 1 continue; // в начало цикла, смотреть след.значение end; if z<maxz then //если введенное значение меньше максимального,то begin if (i<min) and (i<>0) then // если счетчик макс.значений меньше итогового min:=i;// перед обнулением запишем счетчик в ответ i:=0; //и обнуляем счетчик макс.значений end; if (maxz=z) then // если макс значение равно текущему значению то, i:=i+1; // увеличим счетчик макс. значений end; if (i<min) and (i<>0) then min:=i;// котрольное сравнение ответа и счетчика мин. значений writeln ('минимальное количество максимальных чисел подряд: ',min); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

  program minmax30; var n,z,maxz,i,min:integer; begin   writeln ('количество чисел в наборе (N):');   readln (n);// считываем количество элементов   min:=n; // присвоим ответу максимально возможное значение   for var ii:=1 to n do //вход в цикл   begin   writeln (ii,' число:');     readln (z); //считываем значение    if z>maxz then // если введенное значение больше максимума,то    begin    maxz:=z; //переменной максимального значения присвоим текущее значение    i:=1; //в счетчик максимальных значений 1    continue; // в начало цикла, смотреть след.значение    end;    if z<maxz then //если введенное значение меньше максимального,то    begin    if (i<min) and (i<>0) then // если счетчик макс.значений меньше итогового    min:=i;// перед обнулением запишем счетчик в ответ    i:=0; //и обнуляем счетчик макс.значений    end;    if (maxz=z) then // если макс значение равно текущему значению то,     i:=i+1; // увеличим счетчик макс. значений   end;   if (i<min) and (i<>0) then min:=i;// котрольное сравнение ответа и счетчика мин. значений   writeln ('минимальное количество максимальных чисел подряд: ',min); end.

  Ответить