No.83593
[Full thread]
Не получается вывести в алфавитном порядке моделей, помогите плез, вот код
Program zapis;
const
n=8;
type
aut=record
model,color,temp: string;
year: integer;
end;
type
mas = array[1..n] of aut;
var
Не получается вывести в алфавитном порядке моделей, помогите плез, вот код
Program zapis;
const
n=8;
type
aut=record
model,color,temp: string;
year: integer;
end;
type
mas = array[1..n] of aut;
var
i,k,year,c:integer;
x:mas;
model,color,vcolor,temp:string;
begin
i:=0;
for i:=1 to 8 do
begin
if i<8 then
inc(k);
with x [i] do
begin
write ('Введите модель автомобиля: ');
readln(model);
write ('Введите год выпуска автомобиля: ');
readln(year);
write ('Введите цвет автомобиля: ');
readln (color);
end;
end;
begin
writeln ('Введите цвет: ');
readln(vcolor);
c:=0;
end;
for i:=1 to k do if x[i].color=vcolor then
begin
inc(c);
with x[i] do
writeln (model:10, color:10, year:10);
end;
if c=0 then writeln('Нет машин такого цвета ',vcolor);
for i:=1 to k do if x[i].model > x[i+1].model then
begin
temp := x[i];
x[i].model := x[i+1].model;
x[i+1] := temp;
writeln (model:10, color:10, year:10);
end;
end.
