Помогите переделать с паскаля на с++
const n=10;
type avto=record
marka,color:string;
year:integer:
price:read;
end;
avtoprice= file of avto;
var a1:array[1..n] of avto;
i:integer;
f1:avtoprice;
begin
clrscr
assing(f1,d:avto);
reset(f1);
for i:1 to n do with a1[i] do
begin
writeln(Введите марку:);
readln (marka);
writeln(Год выпуска:);
readln(year);
writeln(Цвет:);
readln(color);
writeln(Цена:);
readln(price);
end;
writeln;
writeln(Фирма предлогает такие машины:)
for i:=1 to n do with a1[i] do
writeln(marka:15,year:10,color:20,color:red, $,price);
writeln;
write(Выведим инф;);
writeln(Машину выпущенные в 1999 году;);
for i:=1 to n do with a1[i] do
if year = 1999 and color= red then writeln (marka:15,prece);
readln;
end.
Переделал и записал все это в текстовый файл, который прикреплен ниже
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
