Umiestnenie súboru www.TrSek.com/beginner/danciwo/2dpole.pas{ 2DPOLE.PAS Copyright (c) Danciwo }
{ Na vstupe je postupnost N realnych hodnot. Zostavte algoritmus, }
{ ktory najde miesto, kde sa nachadza minimalna zlozka a vymeni ju }
{ s prvou zlozkou }
{ }
{ Author: Danciwo }
{ Date : 15.02.2008 http://www.trsek.com }
program _2dpole;
uses crt;
var cisla: array [1..10, 1..10] of integer;
a,b,y,x:integer;
procedure naplnenie;
var i,j: integer;
begin
randomize;
for i:=1 to 10 do begin
writeln;
for j:=1 to 10 do begin
cisla[i,j]:= random(98)+1;
end;
end;
end;
procedure hladanie(var x:integer; var y:integer);
var i,j,min:integer;
begin
min:=32001;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
if min> cisla[i,j]
then begin min:=cisla[i,j];
x:=i;
y:=j;
end;
end;
end;
end;
procedure vymena(var x:integer; var y:integer);
var i,j,pomocna:integer;
begin
pomocna:=cisla[1,1];
cisla[1,1]:=cisla[x,y];
cisla[x,y]:=pomocna;
end;
procedure vypis;
var i,j:integer;
begin
for i:=1 to 10 do begin
writeln;
for j:=1 to 10 do begin
write(cisla[i,j]:5);
end;
end;
end;