Pascal - Konsolowe

Najmniejsza wartość w tablicy

Najmniejsza wartość w tablicy
Pascal - Konsolowe

Program: wyszukujący najmniejsza liczbę w tablicy.

Użytkownik podaje wielkość dwuwymiarowej tablicy, podaje wartości poszczególnych elementów, po czym program wyszukuje wartość minimalną i jej pozycje.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program program_tablica_1;
uses Crt;
var w, k, i, j, min, x, y : Integer;
    tablica : array [1..100, 1..100] of Integer;
begin
     ClrScr;
     Write('Podaj liczbe wierszy tablicy (max 100): ');
     Read(w);
     Write('Podaj liczbe kolumn tablicy (max 100): ');
     Read(k);
     for i:= 1 to w do
         begin
         for j:= 1 to k do
             begin
             Write('Podaj liczbe calkowita tablicy[',i,'][',j,']: ');
             ReadLn(tablica[i][j]);
             if i = 1 then min:= tablica[i][j];
             if tablica[i,j] < min then
             begin
                  min:= tablica[i,j];
                  x:= i;
                  y:= j;
             end;
         end;
     end;
     Write('Najmniejsza liczba w tablicy to ',min,' i znajduje sie na pozycji [',x,'][',y,'].');
     ReadKey;
end.