Tiêu đề: bai6: vu hoai bang Mon Dec 26, 2022 8:21 pm
Code:
var a:array[1..1000,1..1000] of longint; n,m,i,j,d,rmin:longint; begin assign(input,'bai6onl.inp');reset(input); assign(output,'bai6onl.out');rewrite(output); read(n,m); for i:=1 to n do for j:=1 to m do read(a[i,j]); rmin:=a[1,1];d:=0; for i:=1 to n do for j:=1 to m do if a[i,j]<rmin then rmin:=a[i,j]; for i:=1 to n do for j:=1 to m do if a[i,j]=rmin then inc(d);