параллельный просмотр элементов массива

[Marianna22]

здравствуйте!
Помоги пожалуйста.
Есть задача: Разработайте программу поиска максимального элемента в целочисленном массиве а[1:n] путем параллельного просмотра его четных и нечетных элементов. Докажите, что все процессы свободны от взаимного влияния
Сделала просто поиск элемента. Как сделать так, чтобы поиск элемента был путем параллельного просмотра???

uses
  SysUtils;

var arr:array[1..20] of integer;
    i,minEven,minOdd,maxEven,maxOdd,max:integer;
    // n: byte;

begin
  randomize;

for i:=1 to 20 do
begin
  arr[i] := random(100);
end;

minEven:=100;
minOdd:=100;
maxEven:=0;
maxOdd:=0;

for i:=1 to 20 do
begin
  if(arr[i] mod 2 = 0) then
    begin
      if(arr[i]>maxEven) then maxEven:=arr[i];
      if(arr[i]<minEven) then minEven:=arr[i];
    end
    else
    begin
      if(arr[i]>maxOdd) then maxOdd:=arr[i];
      if(arr[i]<minOdd) then minOdd:=arr[i];
    end;

end;

if  (maxEven > maxOdd) then max:=maxEven else max:=maxOdd;

for i:=1 to 20 do
begin
   writeln(arr[i]);
end;

writeln('Min chetnoe - ',minEven);
writeln('Max chetnoe - ',maxEven);
writeln('Min nechetnoe - ',minOdd);
writeln('Max nechetnoe - ',maxOdd);
writeln('Max - ',max);
   Readln;
end.

[Stilet]

Тебе что-нибудь говорит слово TThread?
У вас в методичке что-нибудь есть об этом классе?

[Marianna22]

А вот это похоже на параллельное программирование?

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

type
  TThread1 = class(TThread)
   private
   protected
     procedure Execute; override;
   end;

  TThread2 = class(TThread)
  private
    protected
    procedure Execute; override;
   end;


var arr:array[1..20] of integer;
    i,minEven,minOdd,maxEven,maxOdd,max:integer;


 procedure TThread1.Execute;
   begin
    for i:=1 to 20 do
      begin
       if(arr[i] mod 2 = 0) then
         begin
           if(arr[i]>maxEven) then maxEven:=arr[i];
           if(arr[i]<minEven) then minEven:=arr[i];
         end;
      end;
  end;


  procedure TThread2.Execute;
  begin
   for i:=1 to 20 do
      begin
       if(arr[i] mod 2 <> 0) then
         begin
          if(arr[i]>maxOdd) then maxOdd:=arr[i];
          if(arr[i]<minOdd) then minOdd:=arr[i];
         end;
      end;
  end;


var
  T1 : TThread1;
  T2 : TThread2;
begin

  randomize;
 {Çàïîëíÿåì çíà÷åíèÿìè}
for i:=1 to 20 do
begin
  arr[i] := random(100);
end;

minEven:=100;
minOdd:=100;
maxEven:=0;
maxOdd:=0;

  T1 := TThread1.Create(True);// ñîçäàåò ýêçåìïëÿð êëàññà
  T2 := TThread2.Create(True);
 
  T1.Resume;//çàïóñê ïîòîêà
  T2.Resume;
 
  T1.WaitFor;;// æäåò çàâåðøåíèÿ ïîòîêà, âîçâðàùàÿ çàòåì êîä åãî çàâåðøåíèÿ
  T2.WaitFor;


if  (maxEven > maxOdd) then max:=maxEven else max:=maxOdd;

for i:=1 to 20 do
begin
   writeln(arr[i]);
end;

writeln('Min chetnoe - ',minEven);
writeln('Max chetnoe - ',maxEven);
writeln('Min nechetnoe - ',minOdd);
writeln('Max nechetnoe - ',maxOdd);
writeln('Max - ',max);
   Readln;
end.

[Stilet]

О, да. Это уже ближе к истине.
Я бы на твоем месте writeln внес в потоки. Чтоб по окончанию потока выводило, а не в конце программы. А переменные все! кроме массива сделал бы локальными, и поместил бы их в execute потока.