Reikia pagalbos su Pascal

Sveiki. Gal kas nors gali padėti išspręsti šį užduotį:

Petriukas rengiasi priimti svečius. Ką pagaminti, kad svečiai būtų sotūs? Aišku, kad kuo daugiau. Petriukas moka programuoti, todėl nori sukurti programą, kuri gali jam pasiūlyti, ką gaminti, jeigu yra turimų produktų sąrašas ir galimų gaminti patiekalų receptai. Petriukas dar nemoka rašyti programų, kuriose būtų tekstiniai duomenys, todėl produktus ir patiekalus sunumeravo, numeraciją pradėdamas vienetu. Turimų produktų kiekius surašė į masyvą ZĮmJ. o receptus — į masyvą RĮn]|m|. kur n — patiekalų pavadinimų skaičius, m — produktų pavadinimų skaičius. Petriukui reikia suformuoti masyvą P |n|. kur PĮi] — maksimalus i-tojo patiekalo kiekis, kurį galima pagaminti iŠ visų turimų produktų. Masyvo P|n| maksimalios reikšmės indeksas rodys patiekalo, kurio daugiausiai galima pagaminti, numerį. Programa surasto patiekalo indeksą turi paversti patiekalo numeriu (reikia pridėti vienetą, nes patiekalai pradedami numeruoti nuo vieneto).

Pradiniai duomenys surašyti faile receptai.dat taip:

• pirmoje eilutėje surašomas produktų skaičius n ir produktų skaičius m;

• antroje eilutėje surašomi turinių produktų kiekiai:

• trečioji eilute paliekama tuščia;

• toliau kiekvienoje eilutėje pateikiamas vieno patiekalo receptas: kiek kokio produkto reikia vienai patiekalo porcijai pagaminti. Jei produkto recepte nera. jo vietoje rašomas nulis.

Remdamiesi Petriuko pasiūlytu algoritmu, sukurkite programą, skirtą nustatyti, kuri patiekalą siūloma gaminti svečiams. Rezultatų faile receptai.rez turi būti įrašytas siūlomo gaminti patiekalo numeris. Pradinių duomenų failo pavyzdys:

5 10

12.5 14.2 45 12 0 125 65.4 5 9 10

5 0 0 6 0 15 55 1 0 0

3.5 1 1 2 3 22 14.2 1.4 5 5

2 2.1 1 0 0 12 13 0 2 1

0 2 2.5 2 0 10 11 1 1 1

6 1 1 0 0 0 0 1 1 1

Rezultatų faile turi būti rezultatas: Siūlome gaminti patiekalą Nr. 4.

Iš anksto ačiū už pagalbą.