Question

Известны данные о марках автомобилей и их стоимости(Лада-400тыс,БМВ-700тыс,Шеврале-800тыс,Нисан-1000000).Необходимо обеспечить ввод этих данных в программу,после этого следует найти авто максимально близкий к средней стоимости,вычисленный по всем авто.Написать программу реализующие поставленные задачи

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

type
  tCar=record
    brand:string;
    cost:real;
  end;
 
begin
  var a:=new tCar[4];
  for var i:=0 to 3 do begin
    var b:=ReadlnString(i+1+') введите марку и стоимость в рублях:').ToWords;
    a[i].brand:=b[0]; a[i].cost:=b[1].ToReal;
    end;
 var m:=a.Select(t->t.cost).Average;
 var p:=a.Select(t->Abs(t.cost-m)).ToArray.IndexMin;
 Writeln('Выбран автомобиль марки ',a[p].brand,' стоимостью ',a[p].cost)
end.