Автор: asdfg

asdfg — Wed, 06 Nov 2019 00:14:08 +0000

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.

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.

Автор: Наталья

Наталья — Sat, 09 Feb 2019 00:16:16 +0000

Неправильно работает для набора типа: 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.

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;

if kmin<=kmin1 then kmin1:=kmin;

write('Минимальное количество подряд идущих максимальных элементов: ',kmin1);

end.

Комментарии: Решаем задачи Абрамян на Паскале. Minmax30

Автор: asdfg

Автор: Наталья