program Project1;
{$APPTYPE CONSOLE}
VAR mas : array [1..6] of Integer;
i, z : Byte;
min, m : Integer;
BEGIN
Writeln ('Programma 3');
Randomize;
FOR i := 1 To 6 Do
BEGIN
Mas[i] := Random(10) - 5;
Write (mas[i],' ');
END;
Min := mas[1];
FOR i := 2 To 6 Do
IF mas[i] < Min Then
BEGIN
Min := mas[i]; z := i;
END;
Writeln;
Writeln ('min = ', min, ' Nomer = ', z);
M := mas[3]; mas[3] := mas[z]; mas[z] := M;
FOR i := 1 To 6 Do Write (mas[i],' ');
Readln;