Lệ
Tổng số bài gửi : 16 Join date : 06/12/2022
| Tiêu đề: bai6d7.pascal Sat Dec 17, 2022 8:32 pm | |
| uses math; var i,n,j,m,dem,min:longint; a:array [1..10000,1..10000] of longint; begin assign(input,'bai6d7.inp'); reset(input); assign(output,'bai6d7.out'); rewrite(output); read(n,m); for i:=1 to n do for j:=1 to m do read(a[i,j]); dem:=0; min:=a[1,1]; for i:=1 to n do for j:=1 to m do if a[i,j]<min then min:=a[i,j]; for i:=1 to n do for j:=1 to m do if a[i,j]=min then inc(dem); write(min,#32,dem); close(input); close(output); end. - Code:
-
[code][/code] | |
|