Срочно!!!
Составить программу в Паскале для обработки массива из 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). Найти наименьший элемент и его номер. В отчет включить программный код и результат работы программы
Составить программу в Паскале для обработки массива из 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). Найти наименьший элемент и его номер. В отчет включить программный код и результат работы программы
More Questions From This User See All
Answers & Comments
===== 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