Тут надо я так думаю использовать запись.Сейчас попробую набросать.
Допустим у нас стоит 5 авто.
Code
uses crt;
TYPE tablica=record
Mapka: String[20];
rog_BbInycka: Integer;
familiya: String[20];
Homep:Byte;
end;
CONST ABtomo6il: array [1..5] of tablica
((Mapka:'Audi'; rog_BbInycka:2001; familiya:'uBaHoB'; Homep:1;),
(Mapka:'BMW'; rog_BbInycka:2002; familiya:'neTpoB'; Homep:2;),
(Mapka:'Ford'; rog_Bbinycka:2004; familiya:'uBaHoB'; Homep:3;),
(Mapka:'Mercedes-Benz'; rog_Bbinycka:2011; familiya:'Matveev'; Homep:4;),
(Mapka:'Honda'; rog_Bbinycka:2007; familiya:'HaymoB'; Homep:5;));
var i,j:Integer[5];
for i:=1 to 5 do
for j:=1 to 5 do begin
if ABtomo6il[i].rog_BbInycka<= ABtomo6il[j].rog_BbInycka then
Writeln(ABtomo6il[i].Mapka);
Readln;
end.
Вроде так,правда не тестил..
Добавлено (25.03.2011, 17:28)
---------------------------------------------
Можно в принципе сделать так,чтобы любой пользователь заполнил сам массив,с помощью readln
