Jyna

Wielkie dzięki za pomoc

Bardzo prosze o pomoc w napisaniu programu w pascal-u. Program ma wyznaczać najmniejszy element. Program napisałam niby działa ale zawsze wypisuje zero bez wzgledu na to jakie sa liczby podane zawsze wypisuje zero. Może ogolnie mam zły pomysł na to bo zasugerowałam sie innym programem ktory szukał najwiekszej liczby w wierszu. Bardzo prosze o pomoc i jakieś sugestie bo mnie juz brakuje pomysłow co z tym zrobić ... uses SysUtils; CONST nmin=20; mmin=400 ; TYPE Dane = ARRAY [1..mmin, 1..nmin] of INTEGER ; VAR i,j,n,nn,min,c:INTEGER; T : DANE; BEGIN Writeln('podaj n'); Readln(n); Writeln ('Podaj kolumne w ktorej ma byc znaleziony minimalny element'); Readln(nn); Writeln; FOR i:=1 TO n DO FOR j:=1 TO n DO BEGIN Write ('wiersz = ',i,' kolumna = ',j,' T[',i,',',j,'] = '); Readln (T[i,j]); END; FOR j:=n TO 1 DO BEGIN IF j=nn THEN BEGIN min:=T[1,j]; Writeln; FOR i:=n TO 2 DO BEGIN c:=T[i,j]; IF c<min THEN min:=C; END; END; END; Writeln; Writeln(' Minimalny element w kolumnie ' ,nn,'wynosi' ,min); Readln; END.