Question

Написать программу нахождения минимального из N чисел в Pascal

Answer 1

Var n,i,m,a: integer;
begin
write('Введите количество чисел (N): ');
readln(n);
write('Введите число: ');
readln(a);
m:=a;
for i := 1 to n-1 do
begin
write('Введите число: ');
readln(a);
if a<m then m:=a
end;
writeln('Минимальное число в последовательности: ',m)
end.

Answer 2

Вот пример программы на языке Pascal для нахождения минимального из N чисел:

pascalCopy code
program FindMinimum;
var
  N, i, num, min: Integer;
begin
  Write('Введите количество чисел (N): ');
  Readln(N);

  if N <= 0 then
  begin
    Writeln('N должно быть положительным числом.');
    Halt;
  end;

  Write('Введите первое число: ');
  Readln(min);

  for i := 2 to N do
  begin
    Write('Введите следующее число: ');
    Readln(num);
    if num < min then
      min := num;
  end;

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

Эта программа запрашивает у пользователя количество чисел (N), затем последовательно вводит N чисел и находит минимальное из них. Минимальное число сохраняется в переменной min, и после завершения ввода всех чисел оно выводится на экран.

Просто скопируйте этот код в среду разработки Pascal и выполните программу, чтобы найти минимальное из N чисел.