Решите в паскале плииис!!! Дана последовательность вещественных чисел. Выведите ?
Решите в паскале плииис!!!
Дана последовательность вещественных чисел. Выведите ??а экран значения и номера элементов: наибольшего, наименьшего и наименее отличающегося от средне арифметического значения.
Заранее всем спасибо!
Гость
Ответ(ы) на вопрос:
Гость // PascalABC.NET 3.2, сборка 1336 от 14.11.2016
begin
var a:=ArrRandomReal(ReadInteger('n='),10,30); a.Println;
Writeln('Наименьший элемент № ',a.IndexMin+1);
Writeln('Наибольший элемент № ',a.IndexMax+1);
var m:=a.Average;
var d:=a.Select((x,i)->(abs(x-m),i+1));
Writeln('Наименее отличается от среднего значения элемент № ',
(d.Min).Item2)
end.
Пример
n= 5
28.8975487271778 29.3922267944516 10.5457673969426 21.9476794693375 20.9330827234933
Наименьший элемент № 3
Наибольший элемент № 2
Наименее отличается от среднего значения элемент № 4
Не нашли ответ?
Похожие вопросы