Vct Pascal,nhập vào 1 mảng,tìm ra chữ số lớn nhất của mỗi số Giúp e với ạ!

0 bình luận về “Vct Pascal,nhập vào 1 mảng,tìm ra chữ số lớn nhất của mỗi số Giúp e với ạ!”

1. uses crt;
   var i,n,max:longint; a:array[1..10000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);  
      for i:=1 to n Do 
         begin
            write(‘Nhap so thu ‘,i,’: ‘);readln(A[i]);  
            max:=0;
            while a[i]<>0 do
               begin
                  if a[i] mod 10>max then max:=a[i] mod 10;
                  a[i]:=a[i] div 10;
               end;
            writeln(‘Chu so lon nha cua so thu ‘,i,’ la: ‘,max);
         end;
   readln
   end.

   Bình luận

2. Program chuong_trinh_mang;

   uses crt;

   Var n,i,max,ln,tong,k :longint;
       a,b : array [1..100] of longint;
   Begin
   repeat
   Write (‘Nhap N : ‘);REadln(n);
   until n > 0;
   max := 0;

   tong := 1;
   For i := 1 to n do
   Begin
   Write (‘A[‘,i,’]= ‘);Readln(A[i]);
   b[I] := a[i];
   while a[i] <> 0 do
   Begin
   k := a[i] mod 10;
   tong := tong *k;
   a[i] := a[i] div 10;
   end;
   If max <= tong then 
   Begin
   max := tong ;
   ln := b[i];
   end;
   k := 0;
   tong := 1;
   end;
   Write (‘Lon nhat la : ‘,ln);

   delay(5000);

   end.

   Bình luận