Question

Написать программу нахождения минимального элемента в одномерном масиве В[1..9] Нужна помощь! Язык турбо паскаль)

Answer 1

Uses crt;varB:array[1..9] of integer;i,min:integer;beginclrscr;randomize;for i:=1 to 9 dobeginB[i]:=random(100);write(b[i],' ');end;min:=b[1];for i:=1 to 9 doif b[i]<min then min:=b[i];writeln('min=',min);end. 

Answer 2

Конечно, я могу помочь вам с написанием программы нахождения минимального элемента в одномерном массиве на языке Turbo Pascal.

Вот пример программы:

program FindMinElement;

const
  N = 9; // размер массива

var
  A: array[1..N] of Integer; // объявление массива
  i, minElement: Integer; // переменные

begin
  // заполнение массива случайными числами
  Randomize;
  for i := 1 to N do
    A[i] := Random(100); // генерация случайного числа от 0 до 99

// вывод элементов массива
  writeln('Массив A:');
  for i := 1 to N do
    write(A[i], ' ');
  writeln;

// поиск минимального элемента
  minElement := A[1]; // предполагаем, что первый элемент минимальный
  for i := 2 to N do
  begin
    if A[i] < minElement then
      minElement := A[i]; // если текущий элемент меньше минимального, обновляем минимальный элемент
  end;

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

readln;
end.

Программа сначала заполняет массив `A` случайными числами от 0 до 99. Затем она выводит элементы массива на экран. Далее программа ищет минимальный элемент, считая первый элемент минимальным и сравнивая его со всеми остальными элементами массива. Если найден элемент, который меньше текущего минимального, то значение минимального элемента обновляется. В конце программа выводит найденный минимальный элемент на экран.

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