Одномерные массивы. Паскаль.

[Se7en_Ghost]

Доброго времени суток. Помогите решить задачу:
Дано: Одномерный массив y(n); n=10. Сформировать массив Х из элементов У, расположенных после максимального. Найти произведение четных элементов массива Х.
Заранее спасибо.

[k0tone]

Вот программка, в принципе рабочая, но есть к чему придраться!

program test;
uses crt;

const n=10;
type mass = array [1..n] of integer;
var y,x:mass;
    i,j,k,l,m,max:integer;

begin
  clrscr;
  randomize;
  for i:=1 to n do
    begin
      y[i]:=random(300)-128;
      write(y[i]:5);
    end;
  max:=y[1];
  for i:=1 to n do
    for j:=1 to n-1 do
      begin
        if max<y[j+1] then
           begin
            max:=y[j+1];
            k:=j+1;
          end
      end;
  writeln;
  writeln('Y[max]=',max);
  if k=0 then k:=1;
  l:=10-k;
  for i:=1 to l do
    begin
      x[i]:=y[k+1];
      k:=k+1;
      write(x[i]:5);
    end;
  writeln;
  m:=1;
  for i:=1 to l do
    if (x[i] mod 2) = 0 then
      begin
        m:=m*x[i];
      end;
    if m<>1 then writeln('proizvedenie chetnyh chlenov=',m:5) else writeln('error');
  readln;
end.

Хочешь разбирайся... исправляй! Не захочешь... как хочешь!

P.S. В следующий раз кинь свои наработки. Я понимаю что новичок и всё такое, но надо придерживаться правил! Удачи в освоении Pascal'я

[Se7en_Ghost]

Большое спасибо.)

[k0tone]

Если что не понятно, обращайся, объясню.

[Se7en_Ghost]

В таком случае, будьте добры) Было бы неплохо, если бы вы програмку описали, что, откуда берется) Моя благодарность не будет знать границ ^_^