uses crt;

var A:array[1..15] of integer;

      i,max,dem:integer;

begin

clrscr;

writeln('Nhap gia tri cua 15 so');

for i:=1 to 15 do

 begin

  write('So thu ',i,': ');

  readln(A[i]);

 end;

max:=A[1];

for i:=2 to 15 do

 if A[i]>max then max:=A[i];

dem:=0;

for i:=1 to n do

 if A[i]=max then dem=dem+1;

writeln('So lon nhat la: ',max);

writeln('Co ',dem,' gia tri bang so lon nhat');

readln

end.

uses crt;
var i,dem:byte;
    a:array[1..15] of integer;
    max:integer;
BEGIN
        clrscr;
        for i:=1 to 15 do
        begin
                write('Nhap so thu ',i,':');
                readln(a[i]);
        end;
        dem:=0;
        max:=a[1];
        for i:=2 to 15 do
                if a[i]>max then max:=a[i];
        for i:=1 to 15 do
                if a[i]=max then inc(Dem);
        writeln('So co gia tri lon nhat la:',max);
        write('Co ',dem,' so co gia tri = so lon nhat.');
        readln
END.

Chúc bạn học tốt.

Cho mình câu trl hay nhất nha.