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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận