Question

В одномерном массиве найти минимальный элемент Паскаль Помогите пожалуйста

Answer 1

Ответ:

const n=5; //Массив из 5-ти чисел

var

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

    min,i:integer;

begin

for i:=1 to n do

   begin

   readln(a[i]);

   end;

min:=a[1];

for i:=1 to n do

   begin

   if a[i]<min then min:=a[i];

   end;

writeln('Минимальный элемент матрицы = ',min);

end.

Объяснение:

Answer 2

Для нахождения минимального элемента в одномерном массиве в языке Паскаль можно использовать следующий код:

var
  A: array[0..9] of Integer;
  i, min: Integer;
begin
  // Заполнение массива значениями
  for i := 0 to 9 do
    A[i] := i;
  
  // Нахождение минимального элемента
  min := A[0];
  for i := 1 to 9 do
  begin
    if A[i] < min then
      min := A[i];
  end;
  
  // Вывод минимального элемента
  WriteLn('Минимальный элемент: ', min);
end.

В данном коде мы создаем массив `A` и заполняем его значениями от 0 до 9. Затем мы инициализируем переменную `min` значением первого элемента массива `A[0]`. Затем мы проходим по остальным элементам массива и сравниваем их со значением переменной `min`. Если текущий элемент меньше `min`, то обновляем значение `min`. В конце выводим найденный минимальный элемент.

Примечание: Представленный код написан на языке Паскаль. Если вам нужно решение на языке C++, дайте мне знать, и я предоставлю вам соответствующий код.

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