3
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Mình sẽ dùng cách tìm số lớn nhất để tìm số ca, tỉ lệ tử vong. Sau đó gán cho biến dp tại vị trí i có tỉ lệ cao nhẩt. Sau đó xuất ra màn hình số ca tử vong cao nhất và biến dp;
Code
Program corona;
Uses crt;
Var a,b:array[1..100] of integer;
n,i,max,dp:integer;
tl:real;
BEGIN
clrscr;
Write('N= '); Readln(n);
i := 1;
For i := 1 to n do
begin
read(a[i]);
readln(b[i]);
end;
max := a[1];
tl := (b[1]/a[1]); dp := 1;
For i := 2 to n do begin
if max <= a[i] then max:=a[i];
if tl <= (b[i] /a[i]) then begin tl := b[i]/a[i]; dp := i; end;
end;
Writeln(max);
Writeln(dp);
Readln;
END.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
1599
47552
2001
chưa nhập file nên somebody báo cáo r kìa
336
3387
171
Co file nao dau ma nhap ban ???