Кто может помочь решить задачу!!!!

[Bauyrzhan]

В столовой предлагается N комплексных обедов, состоящих из Q блюд. Известна стоймость и калорийность каждого блюда. Сколько стоит самый дешевый и самый дорогой обед? Сколько калорий включает в себя самое калорийное блюдо?

[DM_bite]

Для начала: вводим запись, что-то вроде:

type Dinner = record
q: byte;
cost: integer;
cl: integer;
end;

Потом создаем массив записей:

var a:array [1..10] of Dinner;

Далее: пробегаемся по массиву записей и проверяем( предварительно нужно ввести переменные, в которых будут храниться значения максимума и минимума ):

max:= 5; min:= 10; maxcl:= 1;
for i:= 1 to 10 do
 begin
 if a[i].cl>maxcl then
 maxcl:= a[i].cl;
 if a[i].cost>max then
 max:= a[i].cost;
 if a[i].cost<min then
 min:= a[i].cost;
 end;
 WriteLn(max);
 WriteLn(min);
 WriteLn(maxcl);
 ReadLn;

Предварительно:

var max,min,maxcl: integer;