Man Nguyen
Hỏi từ APP VIETJACK
Viết chương trình nhập vào 2 xâu a, b từ bàn phím, tính độ dài mỗi xâu. Đổi xâu a thành xâu kí tự in hoa tương ứng. In kết quả ra màn hình
Quảng cáo
1 câu trả lời 317
Program Max_so; uses crt; const so: set of char=['0','1','2','3','4','5','6','7','8','9']; var a:array[1..100] of integer; st,b:string; c,l,i,n,j:integer; s, Max: integer; begin clrscr; write['Nhap xau:'];readln[st]; l:=length[st]; i:=1; n:=0; repeat if [st[i] in so] then begin b:=''; repeat b:=b+st[i]; inc[i]; until [not[st[i] in so]] or [i>l]; inc[n]; val[b,a[n],c]; end; inc[i]; until i>l; Max:=a[1]; for i:=2 to n do If Max<A[i] Then Max:=A[i]; Writeln['Phan tu *** nhat cua mang:', Max]; readln; end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86458
Gửi báo cáo thành công!
