viết chương n là số nguyên nhập từ bàn phím in ra màn hình số lớn nhất. N nhập từ bàn phím

0 bình luận về “viết chương n là số nguyên nhập từ bàn phím in ra màn hình số lớn nhất. N nhập từ bàn phím”

1. program baitap;
   uses crt;
   var n,i,max : integer;
   a : array[1..100] of integer;
   begin clrscr;
   write(‘Nhap so n :’); readln(n);
   for i:=1 to n do begin
   write(‘Nhap phan tu thu ‘,i,’ la : ‘); readln(a[i]);
   end;
   max:=a[1];
   for i:=2 to n do if max<a[i] then max:=a[i];
   write(‘So lon nhat trong mang la :’, max);
   readln
   end.

   Bình luận

2. uses crt;

   var n,max,k: integer;

   begin

   clrscr;

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

   max:=n mod 10;

   while n>0 do

   begin

   k:=n mod 10;

   n:=n div 10;

   if k>max then max:=k;

   end;

   writeln (‘chu so lon nhat cua n la: ‘,max);

   readln;

   end.

   Bình luận