1. Дан двухмерный массив A (n,m). Найти произведение отрицательных четных элементов…

1) uses crt; const n=5; m=5; var a: array[1… n,1… m] of integer; pr,i,j: integer; beginfor i: =1 to n dobeginfor j: =1 to m doread (a[i,j]); end; writeln; pr: =1; for i: =1 to n dofor j: =2 to 2 doif (a[i,j]<0) and (a[i,j] mod 2=0) then pr: =pr*a[i,j]; writeln (pr); end.2) uses crt; const n=5; m=5; var b: array[1… n] of integer; a: array[1… n,1… m] of integer; min,i,j,r: integer; beginfor i: =1 to n dobeginfor j: =1 to m doread (a[i,j]); end; writeln; min: =1000; r: =1; repeatfor i: =r to r dofor j: =1 to m doif a[i,j]n; for i: =1 to n dowrite (b[i],'); end.