Bài 11: Kiểu mảng

H24
NT
30 tháng 5 2022 lúc 12:34

uses crt;

var i,n,nn:integer;

a:array[1..100]of integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

nn:=a[1];

for i:=1 to n do 

  if nn>a[i] then nn:=a[i];

writeln(nn);

for i:=n downto 1 do 

  if  nn=a[i] then 

begin

write(i);

break;

end;

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
PA
Xem chi tiết
NL
Xem chi tiết
NL
Xem chi tiết
H24
Xem chi tiết
NP
Xem chi tiết
QN
Xem chi tiết
DN
Xem chi tiết
BN
Xem chi tiết
HT
Xem chi tiết
KK
Xem chi tiết