Viết chương trình nhập dãy A gồm N phần tử nguyên n nhỏ hơn hoặc bằng 100. Tìm phần tử lớn thứ hai trong dãy?
1 câu trả lời
program To_you;
uses crt;
var n: integer;
A:array[1..100] of integer;
begin
clrscr;
write(' Nhap so luong phan tu cua day so, n=');
readln(n);
for i:=1 to n do
begin
write ('Phan tu thu 2 =');
readln (A[2]);
end;
readln;
end.
