Массив записей, поиск в массиве записей

[Dar`ka]

Помогите пожалуйста очень надо...Записи.Создать тип с описанием товара: код, наименование, цена за единицу товара, количество и сумма. Вывести наименование и цену товаров, коды которых лежат в диапазоне 100 … 120. Вывести название товара с наибольшей ценой.

[Naeel Maqsudov]

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

//
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,')');

[Dar`ka]

Спасибо огромное хорошо,что вы есть..такие помощники

[Valusha]

Помогите пожалуйста с задачкой!
Создать программу "Расписание работы вычислительного зала ".Структура исходных данных :дата,фамилия преподавателя,наименование программного продукта, группа, время работы в вычислительном зале.

Вот это у меня не получается:

Сформировать расписание занятий на несколько дней(с...по...).Определить группу наиболее часто посещающую зал,вычислить время (кол-во занятий ),проведенное группой в вычислительном зале в течение недели .

[CoderGirl]

icq 625127032
e-mail: valeri.marquise.des.anges@gmail.com
valeria.glinskaya@mail.ru
Сделаю недорого!