Регистрация
Войти
Стать экспертом Правила
Информатика

Решите в паскале плииис!!!
Дана последовательность вещественных чисел. Выведите на экран значения и номера элементов: наибольшего, наименьшего и наименее отличающегося от средне арифметического значения.
Заранее всем спасибо!

ОТВЕТЫ
// 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)-gt;(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
300
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам