Задание с динамическими массивами.

[TransistorMS]

Составить функцию для определения числа элементов одномерного массива длиной N, предшествующих его первому отрицательному элементу. Используя данную функцию, рассчитать среднее арифметическое значение элементов того из двух заданных одномерных массивов С и Т, в котором меньше элементов, предшествующих первому отрицательному. В случае равенства чисел таких элементов вывести на печать сообщение "Массивы эквивалентны".
Я новичок, поэтому прошу помощи. Дали методички, а от них только хуже. Если можно - попроще, чтобы смог объяснить на защите, что, да как

[Stilet]

Дали методички,

И что там написано?

[Scorpio76]

Ох, лень-матушка...А в инете погуглить ?

Другой вопрос - в данной задаче не указано , что делать в случае если один из массивов (или оба) вообще не содержит отрицательных элементов. В моей программе в этом случае просто выводится сообщение 'AVARYA'.

program ProjectDM;
{$APPTYPE CONSOLE}
uses SysUtils;


type Ar = array of integer;
 var i,n,cc,ct,kc,kt: Integer;
 Sadc,Sadt: Real;
 C,T:Ar;
 Function Ab( A:ar; var sad:Real; var k:integer):integer;
 var j,SA: integer;

 begin
   k:=0;
   SA:=0;
 For j:=0 to High(A) do
  Begin
  SA:=SA+A[j];
   If (k<1) and (A[j]<0) Then
   begin
    result:=j;
    k:=k+1;
   end;

  end;

   Sad:=SA/(High(A)+1);


 end;



 begin
   //************************************
 WriteLn('N=');
 Read(n);
 SetLength(C,n);
 For i:=0 to (n-1) do
 begin
 WriteLn('C[',IntToStr(i),']=');
 ReadLn(C[i]);
 end;
 WriteLn('N=');
 Read(n);
 SetLength(T,n);
 For i:=0 to (n-1) do
 begin
 WriteLn('T[',IntToStr(i),']=');
 ReadLn(T[i]);
 end;
   //*******************************
    cc:=Ab(C,SAdc,kc);
    ct:=Ab(T,SAdt,kt);
    if (kc=0) or (kt=0) then WriteLn('AVARIA')
    else
    begin
    If  cc=ct then
     Writeln( 'C=T');
    If cc<ct then
    write ('SA(C)',floatToStr(Sadc));
    if ct<cc Then
    write  ('SA(T)',floatToStr(Sadt));
    end;
    Readln;


 end.