Giúp em với nhanh tay em vote 5* và ctrlhnh ạ Nhập vào một mảng,tìm ra số có tổng các chữ số lớn nhất Ví dụ: nhập số lương là: 3 A[1]:=32 A[2]:=24 A[3]:=22 Sẽ in ra 24 do tổng các chữ số của nó lớn nhất

615679872572554

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 31 xem

1 trả lời

Thích Trả lời

thangc1daksong

Program BT;
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;
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 := 0;
end;
Write ('Lon nhat la : ',ln);
end.

Vote (0) Phản hồi (0) 2 năm trước

Loga2604

uses crt;
var n,m,i:longint; a:array[1..100000]of longint;
function tong(a:longint):longint;
begin
tong:=0;
repeat
inc(tong,a mod 10);
a:=a div 10;
until a=0;
end;
begin
clrscr;
write('Nhap so luong la: ');readln(n);
for i:=1 to n Do
begin
write('A[',i,']:=');readln(a[i]);
if tong(A[i])>tong(m) then m:=a[i];
end;
writeln(m);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Hãy nêu ảnh hưởng của ánh sáng đến đặc điểm hình thái và đặc điểm sinh lý của cây.

cho 5,1 gam 2 kim loại Mg và Al tác dụng với một lượng dư dung dịch HCL thu được 5,6 lít khí H2 điều kiện tiêu chuẩn. Tỉ lệ phần trăm theo khối lượng của Al trong hỗn hợp ban đầu là

Cho 1 số bài tập về : - adj- ing ; adj- ing - 3 trường hợp Although - Chỉ Khoảng cách - Từ để hỏi ( Có đáp án nha) * SẼ CHO 5 SAO VÀ CTLHN

Quãng đường AB dài 46 km. Xe thứ nhất đi từ A đến B với vận tốc 30 km/h. Sau 30 phút xe thứ hai đi từ B đến A với vận tốc 32 km/h. Hỏi xe thứ hai khởi hành sau bao lâu thì gặp xe thứ nhất

Cho biết đặc điểm địa hình của Nam Mĩ có gì khác so với đặc điểm địa hình của Bắc Mĩ

Đặc điểm cấu tạo ngoài thích nghi với đời sống bay lượn của chim bồ câu

Qua bài thơ Tre Việt Nam tác giả Nguyễn Duy,nhà thơ muốn gửi gắm người đọc những phẩm chất cao quý nào của con người Việt Nam?Nhận xát thái độ tác giả trong bài thơ

Viết 1 bài văn ngắn trình bày suy nghic của mình về chủ đề: gia đình trong lòng em ( 5-10 câu)

Cho tam giác ABC Các đường trung tuyến AM BN CN cắt nhau tại G trên tia đối của tia MG lấy điểm Q sao cho MQ=MG. Gọi I, K lần lượt là trung điểm của BG và BQ. a)CM BM <1/2(BG+BQ) b)CM độ dài các đường trung tuyến của tam giác BGQ bằng 1/2 độ dài các cạnh tương ứng của tam giác ABC

Viết chương trình tính trung bình cộng n số thực x1, x2, x3,... với các số được nhập từ bàn phím Giúp mk vs á. Mk đg cần gấp ạ

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến