Сведения о деталях, хранящихся на складе, содержат следующие данные: название, кол-во, стоимость одной детали. Вычислить, какие детали имеются в наибольшем кол-ве на складе.
Код:
Program Detali;
Type
detal=record
nazvanie:string;
kolichestvo:integer;
stoimost:integer;
end;
Var
B:array [1..100] of detal;
i:integer;
max:integer;
Begin
for i:=1 to 100 do
with B[i] do
Begin
writeln('vvedite nazvanie');
readln(nazvanie);
writeln('vvedite kolichestvo');
readln(kolichestvo);
writeln('vvedite stoimost');
readln(stoimost);
end;
max:=0;
for i:=1 to 100 do
with B[i] do
If B[i] > max then max:=i
writeln(max);
end.