Дан массив 3 * 3.найти сумму четных элементов массива.

Var a: array[1..3,1..3] of integer; i,j,s: integer; begin for i: =1 to 3 do   for j: =1 to 3 do begin   read(a[i,j]);   if not odd(a[i,j]) then s+=a[i,j];   end; writeln(s); end.

Var a: array[1..10] of integer; i,n,k,l,j: integer; begin readln(n); for i: =1 to n do a[i]: =random(1,10); for i: =1 to n do write(a[i],' '); writeln; for i: =1 to n do   if (a[i]> =6) and (a[i]< =20) then   k: =k+1; writeln('количество значений лежащих в промежутке [6 до 20]  ',k); for i: =1 to n-1 do   for j: =i+1 to n do       if a[i]*a[j]> 10 then     l: =l+1; writeln('количество значений п роизведение которых больше 10',l); end.

Const n=3; var    a: array[1..n] of integer;       i, j, k: integer;   begin      randomize;         write ('исходный массив: ');       for i : = 1 to n do begin          a[i] : = random(256);           write (a[i]: 4);     end;       writeln; writeln;           for i : = 1 to n-1 do          for j : = 1 to n-i do              if a[j] > a[j+1] then begin                  k : = a[j];                   a[j] : = a[j+1];                   a[j+1] : = k              end;         write ('массив по возрастанию: ');       for i : = 1 to n do          write(а[i]: 4);         writeln;   readln; end.