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à: 100 125 300 25 500 500 1 5 2
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.
var n,i,dem:longint;
a:array[1..688886]of real;
m:real;
begin
writeln(‘nhap so phan tu’);readln(n);
writeln(‘nhap lan luot n phan tu’);m:=0;
for i:=1 to n do begin
readln(a[i]);
if a[i]>m then m:=a[i];
end;
writeln(‘mang vua nhap’);
for i:=1 to n do
write(‘ ‘,a[i]:0:0);
readln;
writeln(‘ so lon nhat :’,m:0:0);
readln;
writeln(‘cac phan tu lon nhat’);
dem:=0;
for i:=1 to n do
if a[i]=m then write(i,’ ‘);
readln;
end.