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 ạ!
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 ạ!
By Piper
By Piper
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 ạ!
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.
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.