Em hãy viết chương trình nhập vào N số nguyên (0 < N ≤ 688886) a1; a2; a3; … an (-9 tỷ tỷ ≤ ai ≤ +9 tỷ tỷ) vào từ bàn phím. In ra màn hình dãy số vừa nhập, số lớn nhất có trong dãy, vị trí của các số lớn nhất có trong dãy, số lượng phần tử lớn nhất có trong dãy mỗi kết quả trên một dòng. Ví dụ: Nhập vào N = 5; Các phần tử a1 = 500; a2 = 125; a3 = 300; a4 = 25; a5 =500; Kết quả trên màn hình là: 500 125 300 25 500 500 1 5 2 *
Program Tenchuongtrinh;
Uses crt;
Var A: array[1..1000] of longint;
i,n,max,vtmax,dem:longint;
Begin
Clrscr;
Write(‘Nhap so phan tu cua day n= ‘); readln(n);
For i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
end;
For i:=1 to n do
write(A[i],’ ‘);
max:=A[1];
vtmax:=1;
dem:=0;
For i:=1 to n do
if (max<A[i]) then
begin
max:=A[i];
vtmax:=i;
end;
For i:=1 to n do
if (A[i]=max) then
dem:=dem+1;
Write(max,’ ‘);
Write(vtmax,’ ‘);
Write(dem,’* ‘);
Readln;
End.
uses crt;
var a:array[1..10000000000000]of int64;
n,i,d,max:longint;
begin
clrscr;
repeat
write(‘Nhap so luong phan tu: ‘);readln(n);
if (n<=0)and(n>688886) then writeln(‘NHAP LAI!’);
until (n>0)and(n<=688886);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
end;
write(‘Day so vua nhap: ‘);
for i:=1 to n do write(a[i],’ ‘);
max:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
writeln;
writeln(‘So lon nhat: ‘,max);
write(‘Vi tri cua cac so lon nhat: ‘);
for i:=1 to n do if a[i]=max then begin write(‘a[‘,i,’]; ‘);inc(d) end;
writeln;
write(‘So luong so lon nhat: ‘,d);
readln;
end.