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

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

Решение:

program MinMax16;
var
  N,MinNum,i,R,Min:Integer;

begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,' число:');
     Readln(R);

     if i=1 then
      begin
       Min:=R;
       MinNum:=i;
      end;

     if R<Min then
      begin
       Min:=R;
       MinNum:=i;
      end;
   end;

   Writeln(MinNum-1);
end.

program MinMax16;

var

N,MinNum,i,R,Min:Integer;

begin

Write('N:');

Readln(N);

for i:=1 to N do

begin

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

Readln(R);

if i=1 then

begin

Min:=R;

MinNum:=i;

end;

if R<Min then

begin

Min:=R;

MinNum:=i;

end;

Writeln(MinNum-1);

end.

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

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

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

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