Решаем задачи Абрамян на Паскале. Minmax29

Minmax29. Дано целое число $$N$$ и набор из $$N$$ целых чисел. Найти максимальное количество подряд идущих минимальных элементов из данного набора.

Решение:

program Minmax29;

var
  N,i,Ni,Nmin,Num,MaxNum:Integer;

begin

  Num:=0;
  MaxNum:=0;
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,' число:');
     Readln(Ni);
     if (i=1) or (Ni<Nmin) then
      begin
       Nmin:=Ni;
       Num:=0;
       MaxNum:=0;
      end;


     if Ni=Nmin then inc(Num)
     else
      begin
       if Num>MaxNum then MaxNum:=Num;
       Num:=0;
      end;

   end;
   if (Num>MaxNum) and (ni=Nmin) then MaxNum:=Num;

   Writeln(MaxNum);
end.

program Minmax29;

var

N,i,Ni,Nmin,Num,MaxNum:Integer;

begin

Num:=0;

MaxNum:=0;

Write('N:');

Readln(N);

for i:=1 to N do

begin

Write(i,' число:');

Readln(Ni);

if (i=1) or (Ni<Nmin) then

begin

Nmin:=Ni;

Num:=0;

MaxNum:=0;

end;

if Ni=Nmin then inc(Num)

else

begin

if Num>MaxNum then MaxNum:=Num;

Num:=0;

end;

if (Num>MaxNum) and (ni=Nmin) then MaxNum:=Num;

Writeln(MaxNum);

end.

Другие задачи из раздела Minmax можно посмотреть здесь.

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

Можно так:

Program Minmax29

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

Program Minmax29

var a,amin,k,kmax,N:integer;

begin

write('Количество чисел в наборе N: ');

read(N);

write('Введите набор ',N,' чисел:');

for var i:=1 to N do

begin

read(a);

if i=1 then amin:=a;

if a=amin then inc(k) else

if a<amin then

begin

amin:=a;

k:=1;

end;

if a>amin then k:=0;

if k>kmax then kmax:=k;

end;

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

end.

Ответить

Решаем задачи Абрамян на Паскале. Minmax29

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

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

Добавить комментарий Отменить ответ