“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.
“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.
By Cora
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 ạ?^^
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