Developing.ru

Код: Выделить всё

//
const
   N=15; {сколько наименований товаров}
//описание типа
type
   TGoodsItem = record
      Code: integer;
      Name: string;
      Price: real;
      Number:integer;
      Sum: real;
   end;
//объявление переменной
var
  Gods:array[1..N] of GoodsItem;
.....
//ввод даных
for i:=1 to N do with Goods[i] do begin
   write('Введите код'); readln(Code);
   ..... и так далее для всех полей, кроме Sum;
   Sum:=Price*Number;
end;

....

//вывод по диапазону кодов
for i:=1 to N do with Goods[i] do if (Code>=100) and (Code<=120) then begin
   writeln('Код:' , Code);
   .... и так далее для всех полей
   writeln('----------------------------');
end;


//поиск максимума
MaxItemIdx=1;  {предполагаем, что искомый - первый товар}
for i:=2 to N do with Goods[i] do if Price>Goods[MaxItemIdx].Price then MaxItemIdx:=i;
with Goods[MaxItemIdx] do writeln('Самый дрогой товар - ',Name,'(',Code,')');