Напишите пожалуйста программу в паскаль

Question

Напишите пожалуйста программу в паскаль

Александра Пашинина Ученик (87), на голосовании 5 месяцев назад

Вводится последовательность чисел, пока не будет введен 0. В данной последовательности найти минимальный элемент и его порядковый номер.

Answer 1

```pascal
program MinElement;

var
i, n, min, minIndex: integer;
x: real;

begin
min := MaxInt;
minIndex := 0;

i := 1;
while True do
begin
readln(x);
if x = 0 then break;
if x < min then
begin
min := x;
minIndex := i;
end;
inc(i);
end;

writeln('Минимальный элемент:', min, ', его порядковый номер:', minIndex);
end.
```

Answer 2

 program MinElementInSequence; 
 
var 
  number, minNumber, minPosition, currentPosition: Integer; 
 
begin 
  minNumber := MaxInt; // Инициализация минимального числа максимальным значением 
  minPosition := 0;    // Инициализация позиции минимального числа 
  currentPosition := 0; 
 
  repeat 
    ReadLn(number); // Чтение числа из последовательности 
    Inc(currentPosition); // Увеличение текущей позиции 
 
    // Проверка на минимальное значение 
    if (number <> 0) and (number < minNumber) then 
    begin 
      minNumber := number; 
      minPosition := currentPosition; 
    end; 
  until number = 0; 
 
  // Вывод результата 
  if minPosition > 0 then 
    WriteLn('Минимальный элемент: ', minNumber, ' на позиции: ', minPosition) 
  else 
    WriteLn('Последовательность пуста.'); 
end.