Độ cao của một số tự nhiên là tổng các chữ số của số đó.
Cho dãy N số tự nhiên nhập từ bàn phím. Tìm số có độ cao lớn nhất trong dãy.

Question

Độ cao của một số tự nhiên là tổng các chữ số của số đó. Cho dãy N số tự nhiên nhập từ bàn phím. Tìm số có độ cao lớn nhất trong dãy.

minhuyen · Answer

b1: nhập số phần tử của mảng

b2: nhập giá trị cho từng phần tử của mảng

b3: xét từng giá trị của các phần tử và tính tổng các chữ số của nó nếu tổng lớn hơn max thì max:=tổng các chữ số của nó

b4: in kết quả ra màn hình và kết thúc thuật toán

kimoanh · Answer

program docao_max;

uses crt;

var A:array[1..1000] of integer;

n,i,max:integer;

function dc(n:integer):integer;

begin

dc:=0;

while n>0 do

begin

dc:=dc+n mod 10;

n:=n div 10;

end;

BEGIN

clrscr;

write(‘Nhap so luong phan tu n: ‘); readln(n);

max:=0;

for i:=1 to n do

begin

write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);

if dc(A[i])>max then max:=dc(A[i]);

end;

write(‘Do cao lon nhat trong day la: ‘,max);

readln;

end.

0 bình luận về “Độ cao của một số tự nhiên là tổng các chữ số của số đó. Cho dãy N số tự nhiên nhập từ bàn phím. Tìm số có độ cao lớn nhất trong dãy.”