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

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

Решение:

program MinMax19;
var

  N,Ni,Min,i,RezNum:Integer;

begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,' элемент:');
     Readln(Ni);

     if i=1 then
      begin
       Min:=Ni;
       RezNum:=0;
      end;


     if Ni<Min then
      begin
       Min:=Ni;
       RezNum:=0;
      end;

     if Ni=Min then inc(RezNum);

   end;
   Writeln(RezNum);
end.

program MinMax19;

var

N,Ni,Min,i,RezNum:Integer;

begin

Write('N:');

Readln(N);

for i:=1 to N do

begin

Write(i,' элемент:');

Readln(Ni);

if i=1 then

begin

Min:=Ni;

RezNum:=0;

end;

if Ni<Min then

begin

Min:=Ni;

RezNum:=0;

end;

if Ni=Min then inc(RezNum);

end;

Writeln(RezNum);

end.

Решение от Kirk:

Program m19;

Var
 n,i,a,k,min: integer;
 
Begin
 min:=maxint; // максимально возможное значение
 k:=0;
 Write('N=');
 Readln(n);
 For i:=1 to n do 
 Begin
  Write('A',i,'=');
  Readln(a);
  If (a<min) then
  Begin
   min:=a;
   k:=1;
  End;
  If (a=min) then
  Begin
   inc(k);
  End;
 End;
 Writeln('колличество минимальных: ',k-1);
End.

Program m19;

Var

n,i,a,k,min: integer;

Begin

min:=maxint; // максимально возможное значение

k:=0;

Write('N=');

Readln(n);

For i:=1 to n do

Begin

Write('A',i,'=');

Readln(a);

If (a<min) then

Begin

min:=a;

k:=1;

End;

If (a=min) then

Begin

inc(k);

End;

Writeln('колличество минимальных: ',k-1);

End.

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

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

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

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

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