завтра экзамен а я не знаю как делать ... срочно

const
  N = 10;
var
  Arr : array[1..N] of Integer;
  i, Cnt : Integer;
begin
  (*Заполнение массива случайными числами и распечатка.*)
  Writeln('Исходный массив:');
  Randomize;
  for i := 1 to N do begin
    Arr[i] := -5 + Random(11); (*-5..5*)
    if i > 1 then Write(#9);
    Write(Arr[i]);
  end;
  Writeln;
  
  (*Подсчёт количества смен знака.*)
  Cnt := 0;
  for i := 1 to N - 1 do begin
    if Arr[i] * Arr[i + 1] < 0 then Inc(Cnt);
  end;
  Writeln('Количество смен знака = ', Cnt);
  Readln;
end.

program _;
type mas=array [1..100] of integer;
var
a:mas; i,n,max:integer;
begin
writeln('n=');readln(n);
writeln('ýëåìåíòû ìàññèâà');
for i:=1 to n do
begin
readln(a[i]);
if (odd(a[i])) and (a[i]>max) then max:=a[i];
end;
writeln;
writeln('Ìàêñèìàëüíûé íå÷åòíûé ýëåìåíò ',max);
writeln;
end.

program _;
type mas=array [1..100] of integer;
var
a,b:mas; i,j,k,n:integer;
begin
cls;
randomize;
writeln('êîëè÷åñòâî ýëåìåíòîâ ìàññèâîâ?'); readln(n);
writeln('ïåðâûé ìàññèâ');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
writeln('âòîðîé ìàññèâ');
for j:=1 to n do
begin
b[j]:=random(51);
write(b[j],' ');
end;
writeln;
writeln('òðåòèé ìàññèâ');
for i:=1 to n do
for j:=1 to n do
begin
if (a[i]>b[j]) and (i=j) then write(a[i],' ') else
if (a[i]<b[j]) and (i=j) then write(b[j],' ');
end;
writeln;
end.

var
  a: array[1..100, 1..100] of integer;
  i, j, m, n, sum: integer;
 
 
begin
  randomize;
  readln(m, n);
  sum:=0;
  for i := 1 to n do 
  begin
    for j := 1 to m do
      a[i, j] := random(10) - 3;
  end;
  for i := 1 to n do 
  begin
    for j := 1 to m do 
      write(a[i, j], ' ');
    writeln;
  end;
  for i := 1 to n do 
  begin
    for j := 1 to m do
      if a[i, j] < 0 then
        sum := sum + a[i, j];
  end;
  writeln(sum);
end.