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
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
By Amara
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.