Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
annie
Nguyễn Lê Phước Thịnh
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.


Các câu hỏi tương tự
Phạm ngọc anh
Xem chi tiết
Na Lê
Xem chi tiết
Nhược Doanh EXO-L
Xem chi tiết
dffhb
Xem chi tiết
nguyễn an phát
Xem chi tiết
Quân Nguyễn
Xem chi tiết
Dung Nguyễn
Xem chi tiết
Bich Ngoc
Xem chi tiết
Hoàng Thành
Xem chi tiết
Ken Kaneki
Xem chi tiết