Question

Написать программу определения минимального из введённых N чисел. Паскаль, цикл-for. Помогите пожалуйста!!!

Answer 1

program Comparison;

var

N, i, num, min:integer;

begin

write('Введите количество чисел: ');

readln(N);

write('Введите число: ');

readln(num);

min:=num;

for i:= 1 to (N-1) do

begin

readln(num);

if (num<min) then min:=num;

end;

writeln('Минимальное число в последовательности: ',min);

end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая позволяет определить минимальное из введенных N чисел с использованием цикла for:

pascalCopy code
program MinNumber;

var
  N, i, number, min: Integer;

begin
  Write('Введите количество чисел (N): ');
  ReadLn(N);

  Write('Введите число 1: ');
  ReadLn(min);

  for i := 2 to N do
  begin
    Write('Введите число ', i, ': ');
    ReadLn(number);

    if number < min then
      min := number;
  end;

  WriteLn('Минимальное число: ', min);

  ReadLn;
end.

В этой программе сначала пользователь вводит количество чисел N. Затем программа запрашивает первое число и сохраняет его в переменной min. Затем с помощью цикла for программа запрашивает остальные N-1 чисел и сравнивает их с текущим минимальным числом. Если очередное число меньше текущего минимального, то оно становится новым минимальным числом. В конце программа выводит найденное минимальное число.

Надеюсь, это поможет! Если у вас есть еще вопросы, не стесняйтесь задавать.