Localize file www.TrSek.com/zadania/vymenaho.pas{ VYMENAHO.PAS }
{ Vygeneruje pole 200 cisel a u dvoch cisel vymeni pozicie. }
{ }
{ Author: Juraj Pupak }
{ Date : 27.10.2006 http://www.trsek.com }
program VymenaHodnotPola;
uses crt;
var
index,temp,a,j : integer;
Pole : array [1..200] of integer;
begin
clrscr;
writeln('Zadaj pozicie na ktorych sa maju hodnoty vymenit. Mozes zadat pozicie 1 az 200');
readln(a);
readln(j);
For index := 1 To 200 Do
begin
Pole[index] := Random(200);
end;
temp := Pole[j];
Pole[j] := Pole[a];
Pole[a] := temp;
writeln('Na pozicii ',j,' je hodnota ',Pole[j],' na pozicii ',a,' je hodnota ',Pole[a],'.');
readln;
end.