[pascalABC.NET] Тип данных record: Получить перечень средней стоимости товаров, название самого дорогого и самого дешевого товара

[destra1j]

• перечень средней стоимости по каждому из товаров упорядоченный по его количеству;
• название самого дорогого и самого дешевого товара:
• перечень товаров, цена которых находится в диапазоне, указанного пользователем. это то что я должен выжать с этого кода

program pract;
type Production=record
 kod_tovara:string;
 nazva:string;
 firma:string;
 data_vig:integer;
 kilk:integer;
 cena:integer;
 end; 
var
Sklad :array [1..3] of Production;
i,n:integer;
begin
for I:=1 to 3 do 
   begin
   writeln ('введите сведения о товаре'); 
   
   writeln ('введите номер товара');
   readln (Sklad[i].kod_tovara); 
   writeln ('введите название'); 
   readln (Sklad[i].nazva); 
   writeln ('введите фирму'); 
   readln (Sklad[i].firma); 
   writeln ('введите дату производства'); 
   readln(Sklad[i].data_vig); 
   writeln ('введите введите количество'); 
   readln(Sklad[i].kilk); 
   writeln ('введите цену'); 
   readln (Sklad[i].cena);
   end;
 writeln ('ввод закончен');
 writeln;
 writeln('введите цену товара');
 readln(n);
 for I:=1 to 3 do 
      if Sklad[i].cena=n then 
         writeln( Sklad[i].kod3_tovara);
end.

цену я сделал но не могу понять как найти максимальное и минимальное значение

[Dvoishnik]

поиск максимального элемента массива

const n=10;
var 
Max:integer;
mas: array[1..n] of integer;
..........
Max:=mas[1];
 for I:=2 to n do
  if mas[i] > max then  max:= mas[i];

для минимального знак нужно будет поменять

mas[i] < min

[Serge_Bliznykov]

цену я сделал

не сделали. Вам же нужно

перечень товаров, цена которых находится в диапазоне, указанного пользователем

А Вы сделали поиск только тех товаров, цена которых указана (а не диапазон).


поиск самого дорогого и самого дешевого товара

var indexMin, indexMax : integer;
,......

    indexMin := 1; indexMax := 1;
    for i:=2 to n do begin
        if Sklad[i].Cena>Sklad[indexMax].cena then indexMax:=i;
        if Sklad[i].Cena<Sklad[indexMin].cena then indexMin:=i;
    end;
   WriteLn('Самый дешёвый товар - ',Sklad[indexMin].nazva,' с ценой = ',Sklad[indexMin].cena);
   WriteLn('Самый дорогой товар - ',Sklad[indexMax].nazva,' с ценой = ',Sklad[indexMax].cena);

p.s. чтобы каждый раз не заполнять массив данными, сделайте сохранение в типизированный файл и при открытии - считывайте оттуда.
Чтобы можно было забить хотя бы 20-30 единиц товара, а не жалкие 3 штуки, как у Вас...

[destra1j]

три штучки это я так для проверки поставил

[destra1j]

на счет цены да протупил но диапазон это получается пользователь вводит два значения и все цены которые входят в этот диапазон выводятся на экран но как мне это реализовать в коде возможно запросит к примеру переменную k как начало диапазона а потом запросить переменную n как конец диапазона если так то можно сделать цыкл

for I:=n to k do

и в нем сделать вывод на єкран но как мне упорядчить по количеству?

[Dvoishnik]

Сообщение от destra1j

for I:=n to k do

плохая идея
как то так нужно вам

for i:=1 to 3 do begin
 if (Sklad[i].cena<n) and (Sklad[i].cena>k) then 
   writeln( Sklad[i].kod3_tovara);

Сообщение от destra1j

как мне упорядчить по количеству?

сортировок целая туча в интернете выбирайте любой понравившийся алгоритм и в вперед
например пузырьковая

[Serge_Bliznykov]

диапазон это просто:

 repeat 
   writeln('введите диапазон цен товара (от и до):');
   readln(n,m);
 until m>=n; 
 for I:=1 to 3 do 
      if (Sklad[i].cena>=n) and (Sklad[i].cena<=m) then 
         writeln( Sklad[i].kod3_tovara);