programcek v pascale

kaciva

potrebujem program na priklad ktory je v prilohe

impact

Sprav si viacrozmerne pole pomocou

pole : array[0..riadky][0..stlpce]

Potom si pomocou funckie na hladanie minimalneho prvku v poli poznacis znovu do ineho pola maximalnu hodnotu pre kazdy riadok.

Kód: Vybrať všetko

function najdi_min(a: array of integer): integer;
var i, min: integer;
begin
  min:=32767;
  for i:=0 to high(a) do
   if (a[i]<min) then min:=a[i];
  najdi_min:=min;
end;

Potom dalsim vnorenym cyklom odpocitas minimalnu hodnotu pre dany riadok od kazdej hodnoty v bunke.

Dalsim vnorenym cyklom najdes pomocou funkcie najdi_min, minimalnu hodnotu tentokrat v stlpci. Vysledky si poznacis do pola.

Potom pre kazdy stlpec zopakujes to, co predtym pre riadky - odcitas minimalnu hodnotu pre dany stlpec od ostatnych hodnot buniek v stlpci.

Potom prebehnes kazdy riadok a najdes v nom nulu. Podla cisla stlpca skontrolujes vsetky riadky pod nim, ci sa tam nenachadza nula. Ak ano, tak pokracujes dalsim stlpcom.

Nakoniec vypises suradnice a hotovo