Question

Срочно!!! Составить программу в Паскале для обработки массива из 15 чисел Х = (0; 1,25; –371; 0,5; –0,1; 1,2; –5; –172,3; 19783; –2,7; 43,51; 0; –0,02; 14,5; 123,7). Найти наименьший элемент и его номер. В отчет включить программный код и результат работы программы

Answer 1

===== PascalABC.NET =====

begin

 var a: array of real := (0, 1.25, -371, 0.5, -0.1, 1.2, -5, -172.3,

     19783, -2.7, 43.51, 0, -0.02, 14.5, 123.7);

 var im := a.IndexMin;

 Print('Минимальный элемент с номером', im + 1, 'равен', a[im])

end.

Результат:

Минимальный элемент с номером 3 равен -371

Answer 2

Конечно, вот программа на языке Паскаль для обработки массива из 15 чисел и нахождения наименьшего элемента и его номера:

pascalCopy code
program FindMinElement;

const
  N = 15;

type
  FloatArray = array[1..N] of real;

var
  X: FloatArray;
  i, minIndex: integer;
  minValue: real;

begin
  { Ввод массива }
  writeln('Введите ', N, ' чисел:');
  for i := 1 to N do
    readln(X[i]);

  { Поиск наименьшего элемента }
  minIndex := 1;
  minValue := X[1];
  for i := 2 to N do
  begin
    if X[i] < minValue then
    begin
      minValue := X[i];
      minIndex := i;
    end;
  end;

  { Вывод результата }
  writeln('Наименьший элемент: ', minValue);
  writeln('Номер наименьшего элемента: ', minIndex);
end.

Этот код позволяет вам ввести массив из 15 чисел и найдет наименьший элемент, а также его номер в массиве. Просто скопируйте код в среду разработки Pascal (например, Lazarus или Free Pascal) и запустите его. После ввода 15 чисел, программа выдаст результат с наименьшим элементом и его номером.