Question

Очень нужна ваша помощь 20 баллов Паскаль Найти наименьший элемент одномерного массива, состоящего из 9 элементов. Элементы вводятся с клавиатуры.

Answer 1

Ответ:

var a:array[1..9] of integer;

   min:integer;

   i:integer;

begin

    writeln('введите 9 элементов массива');

    min:=MaxInt;

    for i:=1 to 9 do begin

       readln( a[i] );

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

    end;

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

end.

Answer 2

Конечно, я могу помочь вам написать программу на Pascal для поиска наименьшего элемента в одномерном массиве из 9 элементов. Вот пример кода:

pascalCopy code
program FindMinElement;

var
  arr: array[1..9] of integer; // Определяем массив из 9 элементов
  i, minValue: integer;

begin
  // Вводим элементы массива с клавиатуры
  writeln('Введите 9 элементов массива:');
  for i := 1 to 9 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

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

  for i := 2 to 9 do
  begin
    if arr[i] < minValue then
      minValue := arr[i]; // Если найден элемент меньше текущего минимума, обновляем минимум
  end;

  // Выводим результат
  writeln('Наименьший элемент массива: ', minValue);

end.

Программа запрашивает у пользователя ввод 9 элементов массива, затем находит и выводит наименьший из них.