Помогите составить программу.

[KirillG]

Здраствуйте.
Помогите составить 2 программы на TP.

1
Задано натуральное число N и массив x1,x2,x3,.......Xn, в котором каждый элемент равен 0, 1 или 2. Написать программу,которая переставит элементы массива так чтобы сначала распологались всё 1. затем все 0, и в конце все 2.


2
Дан одномерный массив случайных целых чисел. написать программу поиска максимального элемента массива и вывода этого элемента и его порядкогого номера на экран.


Заранее спасибо.

[Sazary]

Вторая:

uses crt;
const n = 10;
var
a : array[1..n] of integer;
i,maxi : integer;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
  a[i] := random(20);
  write(a[i]:3);
  end;
writeln;
writeln('--------');
{------}
maxi := 1;
for i:=2 to n do
 if a[i]>a[maxi] then maxi := i;
writeln('a[',maxi,']= ',a[maxi]);

readln;
end.

[KirillG]

Sazary
спасибо,а первая получается?

[Sazary]

Первая:
Вроде как работает.

uses crt;
const n=15;
var
a : array[1..n] of integer;
i,x,j,k,tmp : integer;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
  a[i] := random(3);
  write(a[i]:2);
  end;
writeln;
writeln('--------');

k := 1;
for x:=0 to 2 do
  for i := k to n do
    begin
     j:= i;
     while a[j] = x do
       begin
       inc(j);
       inc(k);
       end;
     while j<=n do
       begin
        if (a[j]=x) and (a[i]<>x) then
          begin
          tmp := a[i];
          a[i] := a[j];
          a[j] := tmp;
          inc(k);
          end;
        inc(j);
        end;
     end;

for i:=1 to n do
 write(a[i]:2);
readln;
end.

[KirillG]

Sazary
Большое человеческое спасибо.

[KirillG]

Sazary
Извените а вы не могли бы последнюю задачу написать.

Дано натуральное число N. Вычеслить произведение N сомножителей
Z = 2*2/3*4/3*4/5*6/5*6/7*........ Написать программу применяя оператор цикла FOR. /-это дробная черта

[Sazary]

KirillG Вы бы хоть скобки что-ли поставили )) А то можно по-разному понять..

uses crt;
var
i,n : integer;
Z : real;
begin
clrscr;
write('Enter n: ');
readln(n);
Z := 1;

for i:=1 to n do
  begin
  if odd(i) then Z:= Z*(i+1)/i
  else Z := Z*i/(i+1);
  end;
writeln('Z= ',Z:7:4);
readln;
end.

[KirillG]

Огромное спасибо.