Найти сумму элементов одномерного массива

{Найти сумму элементов одномерного массива}
var
  a: array[1..100] of integer;
  i: integer;
  n: integer;
  sum: integer;
 
begin
  writeln('Введите количество элементов массива:');
  readln(n);
  writeln('Введите массив:');
  for i := 1 to n do readln(a[i]);
  for i := 1 to n do sum := sum + a[i];
  writeln('Сумма элементов массива равна: ', sum);
end.

{Найти сумму элементов двумерного массива}
var
  a: array[1..100, 1..100] of integer;
  i, j: integer;
  n, m: integer;
  sum: integer;
 
begin
  writeln('Введите размеры двухмерного массива n и m:');
  readln(n, m);
  writeln('Введите массив: ');
  for i := 1 to n do
    for j := 1 to m do readln(a[i, j]);
  for i := 1 to n do
    for j := 1 to n do sum := sum + a[i, j];
  writeln('Сумма элементов массива равна: ', sum);
end.

{Найти сумму элементов одномерного массива удовлетваряющие условие}
var
  a: array[1..100] of integer;
  i: integer;
  n: integer;
  sum: integer;
 
begin
  writeln('Введите количество элементов массива:');
  readln(n);
  writeln('Введите массив:');
  for i := 1 to n do readln(a[i]);
  for i := 1 to n do
    if (a[i] mod 2 <> 0) then sum := sum + a[i];
  writeln('Сумма элементов массива равна: ', sum);
end.

var 
   a:array [1..100,1..100] of integer
   i,j,min,max:integer
 
begin
   Writeln ('Vvedite razmeri');
   readln (n, m);
   for  i:=1 to n do begin
      for j:=1 to m do begin
         writeln ('VVedite A(',i,'_',j,')');
         readln (a[i,j]);
      end;
   end;
   min:=a[1,1]
   max:=a[1,1]
   For i:=1 to n do begin
      for j:=1 to m do begin
         If a[i,j]<min then
            min:=a[i,j];
         If a[i,j]>max then
            max:=a[i,j];
      end;
   end;
   writeln ('Max=', max, 'Min=',min);
   readln;
end.

var 
   a:array [1..100] of integer
   i,min,max:integer
 
begin
   Writeln ('Vvedite razmer');
   readln (n);
   for  i:=1 to n do begin
         writeln ('VVedite A(',i,')');
         readln (a[i]);
      end;
   min:=a[1]
   max:=a[1]
   For i:=1 to n do begin
         If a[i]<min then
            min:=a[i];
         If a[i]>max then
            max:=a[i];
   end;
   writeln ('Max=', max, ' Min=',min);
   readln;
end.