Список Минимальных цен Опции

[Таблетка_Счастья]

Помогите пожалуйста решить задачу..Решила 9ть, а последнюю не могу (( Уже неделю бьюсь над ней (( Никак не получается..

Имеются сведения о названиях и ценах на n=12 видов товаров по m=10 магазинам. Требуется составить список пяти магазинов, имеющих минимальные цены по заданному виду товара. Список должен включать номер магазина, название и цену выставленного товара. Магазины в списке расположить в порядке возрастания товара..

Я Даже массив не могу сформировать ((
Нужно до завтра (((

Сообщение отредактировано: Таблетка_Счастья - 23.11.2008 12:59

[Unconnected]

Код

const m=10;
      n=12;
      d=5;
var mas1:array[1..n] of string;
    mas2:array[1..m,1..n] of real;
    mas3:array[1..d] of real;
    a,b:integer;
    buf1,nt:string;
    buf2,x2:real;
    tp,x:integer;
begin
  x:=1;
  for a:=1 to n do
  begin
      buf1:='';
      writeln('Введите наименование товара №',a);
      readln(buf1);
      mas1[a]:=buf1;
  end;
  for a:=1 to m do
  for b:=1 to n do
  begin
    buf2:=0;
    writeln('Введите наименование товара №,b ,'магазина №',a);
    readln(buf2);
    mas2[a,b]:=buf2;
  end;
  buf1:='';
  writeln('Введите название искомого товара.');
  readln(buf1);
  for b:=1 to n do
  begin
    if (buf1=mas1[b]) then begin
                  tp:=b;
                      nt:=mas1[b];
                  break;
                     end;

  end;
  buf1:='';
  x:=1;
  x2:=0;
{Здесь должна быть сортировка :)}


end.

Добавлено через 7 мин.
2Таблетка Счастья, программа немного не доделана, осталось из нужного товара с уже определённой позицией (переменная tp) выбрать 5 наименее дорогих...Это сортировка...Если хочешь, можешь подождать, доделаю наверно.
P.S.Lapp,как же похожи начала программ Хотя твоего сообщения я не видел

Сообщение отредактировано: Unconnected - 23.11.2008 20:07