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