2 задачи на Turbo Pascal (p/s: я лаймер=()

[Gangzta]

Не хочу быть надоедливым...тут еще оказывается 2 задачи в Turbo Pascal(((...помогите пожалуйста...только не хочу напрягать...
Задача 3 - В массиве из 6 элементов найти минимальный элемент и поменять его местами с элементом, находящимся на третьей позиции.
Задача 4 - В массиве из 50 элементом (с помощью Random) найти все числа, равные 5 и вывести их номер.

[Карась]

program Project1;

{$APPTYPE CONSOLE}

VAR mas : array [1..50] of Integer;
    i : Byte;
    Flag : Boolean;

BEGIN
Writeln ('Programma 4');
Randomize;
Writeln ('Nomera elementov ravnix 5:');
  FOR i := 1 To 50 Do
   BEGIN
     Mas[i] := Random(10);
     IF Mas[i] = 5 Then
      BEGIN
       Flag := True;
       Write (i,' ');
      END;
   END;
  IF Flag = False Then Writeln ('Net takix elementov');
Readln;
END.

Вот только непонятно надо ли сам массив выводить на экран....

[Gangzta]

Пасиба огромное!!!!!!))

[Карась]

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;
END.

[Gangzta]

йа тебе оч благодарен!!!спасибо приогромнейшее!!!