2 задачи по массивам Опции

[xammer23]

Вот 2 задачи на массивы:

Даны произвольных массива X, Y и Z размера k, n и m соответсвенноо. Найти в каждом массиве X, Y и Z минимальный элемент. Исходные данные взять самостоятельно.

Дан произвольный массив G размера n. Упорядочить в порядке убывания элементы этого массива, стоящие на нечетных мечтах. На печать вывести элементы исходного и полученного массивов. Исходные данные взять самостоятельно.

Очень прошу решите пожалуйста, уже все мозги сжёг.

P.S. если нетрудно то выложите пожалуйста сразу решение, ато я в паскале почти ничего не смыслю.

[Telepat]

Ну раз сессия гоит решил тебе помочь

Код

uses crt;
const n=10;
      m=5;
var i,x,j,y:integer;
    a:array[1..n] of integer;
    b:array[1..m] of integer;
begin
   clrscr;
   x:=1;
   for I:=1 to n do
      begin
         Write('Vvedite a[',i,']=');
         Readln(a[i]);
      end;
   clrscr;
   Writeln('Do sortirovki');
   for i:=1 to n do Writeln(a[i]);
   for i:=1 to m do
      begin
         B[I]:=A[X];
         x:=x+2;
      end;
   for i:=2 to m do
      for j:=m downto i do
         if b[j-1]>b[j] then
            begin
               y:=b[j-1];
               b[j-1]:=b[j];
               b[j]:=y;
            end;
   x:=1;
   for i:=1 to m do
      begin
         a[x]:=b[i];
         x:=x+2;
      end;
      Writeln('Posle sortirovki:');
      for i:=1 to n do Writeln(a[i]);
      readln;
end.

Бери пожалуйста и начинай учится)))