17.04.2010, 16:35
общий
это ответ
Здравствуйте, sannek2.
Код для получения сведений из багажного отделения представлен в приложении.
Приложение:
Uses
Crt;
Type
TPR = Record
Count: Byte;
Weight: Real;
end;
Const
PCount = 10;
Var
Ar: Array[1..PCount] of TPR;
i, count: Byte;
begin
ClrScr;
Randomize;
Writeln('Search passeger with alone bagage pack with weight less 30 kg.');
count := 0;
Writeln('Passeger list:');
for i:=1 to PCount do begin
Ar[i].Count := Random(5);
if Ar[i].Count = 0 then
Ar[i].Weight := 0
else
Ar[i].Weight := 60 * Random;
Writeln(i:3, Ar[i].Count:4, Ar[i].Weight:7:2);
end;
Writeln;
for i:=1 to PCount do begin
if (Ar[i].Count = 1) and (Ar[i].Weight < 30) then begin
Inc (count);
Writeln('Found passenger ', i:3, Ar[i].Count:4, Ar[i].Weight:7:2);
end;
end;
if (count = 0) then
Writeln('Nothing found');
Writeln;
Write('Done. Press any key...');
readkey;
end.