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

[xammer23]

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

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

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

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

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

[volvo]

Telepat, зачем понадобилось вводить столько лишних переменных, и делать рутину в виде копирования данных в другой массив только для его сортировки? Или у тебя тоже стиль "программа не надорвется" ?

Все прекрасно делается и в том же массиве:

uses crt;
const n=10;
var i,j,y:integer;
    a:array[1..n] of integer;
begin
   clrscr;
   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 Write(a[i]:4);
   writeln;

   i := 1;
   while i <= n do begin
     for j := n downto i + 2 do
       if odd(j) then begin
         Y := a[j]; a[j] := a[j - 2]; a[j - 2] := Y;
       end;
     inc(i, 2);
   end;
   Writeln('Posle sortirovki');
   for i:=1 to n do Write(a[i]:4);
   writeln;
end.