Найдите и исправьте ошибки в следующей программе: program prim_a; var m,n,k: integer; writeln(введите значение переменных m и n); red(n,n,k); writeln(m+n+k); end
// 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.
var
m, n, k: integer;
begin
writeln('введите значение переменных m, n, k: ');
read(m, n, k);
writeln(m + n + k)
end.