Найти сумму максимального и минимального элементов

const
 n = 10; // array size
 
var
 arr: array[1..n] of byte;
 i, sum: integer;
 
begin
 randomize;
 sum := 0;
 for i := 1 to n do
  begin
   arr[i] := random(2);
   sum := sum + arr[i];
   // write(arr[i], ' '); // for testing
  end;
  // writeLn;
 write('sum = ', sum);
end.

var
  a: array [1..100] of integer;
  i,n,k,max,min: integer;
begin
  max := 1;
  min := 1;
  WriteLn('Введите колличество элементов массива: ');
  readln(n);
  writeln('Введите элементы массива: ');
  for i := 1 to n do read(a[i]);
  for i:=1 to n do
  begin
    if a[i] > a[max] then
      max := i
    else
      if a[i] < a[min] then
        min := i;
  end;
  WriteLn;
  WriteLn('max=',a[max],' ','min=',a[min]);
  writeln('Сумма максимального и минимального элемента ',a[max]+a[min])
end.

const n=10;
var
  i,x:integer;
  a:array[1..n] of integer;
begin
  for i:=1 to n do
    begin
    a[i]:=random(100);
    write(a[i]:4);
    end;
  x:=0;
  for i:=1 to n do
    begin
      if (a[i] mod 3) = 0 then
        x:=x + a[i];
    end;
write('сумма чисел, кратных трем : ',x)
end.