Pascal - Konsolowe

Minimum w tablicy

Minimum w tablicy
Pascal - Konsolowe

Program: wskazujący najmniejszą wartość w tablicy jednowymiarowej jak i jej położenie.

Po wcześniejszym podaniu 15 elementów tablicy przez użytkownika.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program liczby;
uses crt;
var
   i, min, ind:integer;
   tab: array [1..15] of integer;
begin
     clrscr;
     randomize;
     for i:=1 to 15 do
     tab[i]:=random(10);
     min:=tab[1];ind:=1;
     for i:=1 to 15 do
     if tab[i]<min then
     begin
          min:=tab[i]; ind:=i ;
     end;
     for i:=1 to 15 do writeln('a[',i,']',tab[i]);
     writeln('Minimum wynosi ',min);
     writeln('Minimum ma pozycje ',ind);
     readkey;
end.