LẬP CHƯƠNG TRÌNH NHẬP VÀO 15 SỐ NGUYÊN, SAU ĐÓ TÌM VÀ ĐƯA RA MÀN HÌNH SỐ CÓ GIÁ TRỊ LỚN NHẤT. ĐẾM XEM CÓ BAO NHIÊU SỐ TRONG 15 SỐ CÓ GIÁ TRỊ = SỐ LỚN NHẤT

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.