Question

Найти наименьший элемент массива размером N, элементы которого вводятся с клавиатуры.(В PascalABC,пожалуйста)

Answer 1

Программа:

Pascal:

const N = 5;

var

 arr: array[1..N] of integer;

 i, min: integer;

begin

 min := MAXINT;

 writeln('Введите ', N, ' чисел в массив: ');

 for i := 1 to N do readln(arr[i]);

 writeln('Массив: ', arr);

 for i := 1 to N do if arr[i] < min then min := arr[i];

 writeln('Минимальное число массива: ', min);

end.

Answer 2

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

1. Сначала объявим переменные: - n для хранения размера массива - arr для хранения элементов массива - min для хранения наименьшего элемента

2. Запросим у пользователя ввод размера массива n: ``` writeln('Введите размер массива:'); readln(n); ```

3. Выделим память под массив: ``` SetLength(arr, n); ```

4. Запросим у пользователя ввод элементов массива: ``` writeln('Введите элементы массива:'); for i := 0 to n - 1 do begin readln(arr[i]); end; ```

5. Инициализируем переменную min значением первого элемента массива: ``` min := arr[0]; ```

6. Пройдемся по оставшимся элементам массива, сравним каждый элемент с текущим значением min и, если текущий элемент меньше min, обновим значение min: ``` for i := 1 to n - 1 do begin if arr[i] < min then begin min := arr[i]; end; end; ```

7. Выведем наименьший элемент массива на экран: ``` writeln('Наименьший элемент массива: ', min); ```

Полный код программы на PascalABC:

program SmallestElement;

var
  n, i, min: integer;
  arr: array of integer;

begin
  writeln('Введите размер массива:');
  readln(n);

SetLength(arr, n);

writeln('Введите элементы массива:');
  for i := 0 to n - 1 do
  begin
    readln(arr[i]);
  end;

min := arr[0];

for i := 1 to n - 1 do
  begin
    if arr[i] < min then
    begin
      min := arr[i];
    end;
  end;

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

end.

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