Question

Найти минимальный элемент массива Паскаль

Answer 1

program raf105;

const

 n = 5;

var

 a:array[1..n] of integer;

 i,min:integer;

begin

min:= 10000;

writeln('Вводите числа по очереди');

for i:=1 to n do

begin

 readln(a[i]);

 if a[i]<min

   then min:= a[i];

end;

writeln('Минимальный элемент массива: ',min);

end.

Язык PascalABC

Answer 2

В Паскале, как и во многих других языках программирования, чтобы найти минимальный элемент в массиве, нужно пройти по всем элементам массива и сравнивать их, сохраняя текущий минимальный элемент. Вот пример того, как это можно сделать на Паскале:

pascalCopy code
program FindMinimum;

const
  N = 5; // Размер массива
var
  arr: array[1..N] of Integer;
  i, minElement: Integer;

begin
  // Заполняем массив произвольными значениями (можно ввести с клавиатуры или использовать другой способ)
  arr[1] := 5;
  arr[2] := 2;
  arr[3] := 9;
  arr[4] := 1;
  arr[5] := 7;

  // Предполагаем, что первый элемент является минимальным
  minElement := arr[1];

  // Начинаем сравнивать остальные элементы с текущим минимальным
  for i := 2 to N do
  begin
    if arr[i] < minElement then
      minElement := arr[i];
  end;

  // Выводим найденный минимальный элемент
  writeln('Минимальный элемент массива: ', minElement);
end.

Обратите внимание, что в данном примере массив заполняется вручную для простоты. В реальной программе значения массива могут быть получены из пользовательского ввода или как результат других операций.