“Cho dãy số a1,a2,…an.Em hãy in ra màn hình vị trí số lớn thứ 2 của dãy”. Em hãy viết một đề bài thực tế dựa vào câu hỏi trên.

0 bình luận về ““Cho dãy số a1,a2,…an.Em hãy in ra màn hình vị trí số lớn thứ 2 của dãy”. Em hãy viết một đề bài thực tế dựa vào câu hỏi trên.”

1. uses crt;

   var a:array[1..200]of integer;

   i,n,max:integer;

   begin

   clrscr;

   write(‘Nhap n=’); readln(n);

   for i:=1 to n do 

   begin

   write(‘A[‘,i,’]=’); readln(a[i]);

   end;

   max:=a[1];

   for i:=1 to n do 

     if max<a[i] then max:=a[i];

   writeln(‘Gia tri lon nhat la: ‘,max);

   write(‘Vi tri la: ‘);

   for i:=1 to n do 

     if max=a[i] then write(i:4);

   readln;

   end.

   Còn viết đề bài thì mình chịu ^^

   Sorry nha

   Xin hay nhất được ko ạ?^^

   Bình luận

2. Cô giáo Mary đang chia kẹo cho lớp học của mình, các phần kẹo được chia ra thành từng túi nhỏ khác nhau. Cô còn muốn đem 1 phần kẹo cho người con của mình. Khổ cho cô, cô cần lấy phần kẹo lớn thứ 2 (vì nếu cô lấy phần kẹo lớn nhất thì các học sinh sẽ cho rằng cô tham). Em hãy viết chương trình giúp cô giáo Mary lấy ra được vị trí phần kẹo lớn thứ 2 trong dãy nhé.

   Input: 

   Dòng đầu ghi ra số lượng gói kẹo

   Dòng tiếp theo ghi liên tục các số biểu thị cho số kẹo mỗi gói.

   Output:

   Một dòng duy nhất ghi vị trí gói kẹo tìm được. Nếu có nhiều vị trí thoả mãn, ghi ra vị trí đầu tiên.

   Vd:

   Input 1:

   5

   10 28 30 50 40

   Output 1:

   5

   Input 2:

   10 

   10 10 20 7 5 15 8 15 11 13

   Output 2:

   6

   Bình luận