Помогите решить задачу на массивы,любую!!!
1.Найти сумму элементов в каждом столбике массива MxN, элементы которого задаются датчиком случайных чисел на интервале [-19;20]
2.Найти наименьшее четное число в матрице размером MxN, элементы которого задаются датчиком случайных чисел.
1)uses crt;constn=5;m=7;vari,j,s:integer;a:array[1..n,1..m]of integer; begin randomize; clrscr; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(40)-19; write(a[i,j]:4); end; writeln; end;writeln; for j:=1 to m do begin s:=0; for i:=1 to n do s:=s+a[i,j]; writeln ('j:',j,' ', s); writeln; end;end.