Дан массив а целых чисел, состоящий из 20 элементов. заполнить с клавиатуры.к чётным элементам прибавить а, а от нечётных отнять в(числа вводятся с клавиатуры

Const     n = 3; var   i,b: integer;   a: array[1..n] of integer; begin   b: =21;   for i: =1 to n do     begin       a[i]: =random(51)-30;       if (a[i]> 0) and (a[i]< b) then b: =a[i];     end;   writeln('полученный массив: ');   for i: =1 to n do     write('a[': 4,i,']=',a[i]);   writeln;   if b< 21 then write('наименьший элемент = ',b) else write('нет положительных элементов') end.

Const        n = 3;     k = 3; var   i,j,s1,s2: integer;   a: array[1..n,1..k] of integer; begin   s1: =0;     s2: =0; for i: =1 to n do     for j: =1 to k do     begin       writeln('введите a[',i,',',j,']: ');       readln(a[i,j]);       if (a[i,j]> 0) and (i< > j) then s1: =s1+a[i,j];       if (a[i,j]< 0) and (i< > j) then s2: =s2+a[i,j];     end;   if s1> s2 then     for j: =1 to k do     begin         a[1,j]: =s1;         a[n,j]: =s1;     end;   if s2> =s1 then     for i: =1 to n do     begin       a[i,1]: =s2;       a[i,k]: =s2;     end;   writeln('полученный массив: ');   for i: =1 to n do     begin       for j: =1 to k do     write('a[': 4,i,',',j,']=',a[i,j]);     writeln;     end; end.