Tin học Độ 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. 22/07/2021 By Faith Độ 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.
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; 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. Trả lời
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 Trả lời