Поделитесь своими знаниями, ответьте на вопрос:
Для чого служить прикладне програмне забезпечення?A) гра в комп'ютерні ігри, Б) виконання необхідних користувачу робіт, В) контроль і керування комп'ютерним обладнаннямГ) перевірка і покращення роботи складових комп'ютера і комп'ютернихпрограм.
// Внимание! Если программа не работает, обновите версию!
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.