Viết chương trình nhập vào dãy số nguyên N(số trong dãy có thể giống nhau) tìm số lớn nhất và có bao nhiêu số.

program oken;

uses crt;

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

       n,max,i:integer;

begin

clrscr;

write('nhap so phan tu cua mang: '); readln(n);

for i:=1 to n do

begin

write('a[',i.']: '); readln(a[i]);

end;

max:=a[1];

for i:=2 to n do

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

writeln('max: ',max);

writeln('day so co ',n,' so nguyen');

readln;

end.

Cho mình xin câu trả lời hay nhất nha

uses crt;

var n,i,max,d:integer;

a:array[1..100] of integer;

begin

clrscr;

write('nhap n: ');readln(n);

for i:=1 to n do readln(n);

max:=a[1];

for i:=2 to n do if a[i]>max then

max:=a[i];

for i:=1 to n do if a[i]=max then d:=d+1;

write('so lon nhat la: ',max,'-- có ',d,' bằng với số lớn nhất');