麻烦各位大神帮忙解题。刚刚入门。。急求。！！！！
pascal吧
全部回复
仅看楼主
level 12
Caroline鉨 楼主
1输入一个数（不超过十位数）求其各位数字之和、、
2，读入一个有五十个数组元素的整型数组，请找出其中值最大的一个元素。并指出他是哪一个数组元素
3输入一个十进制整数x。将其转化为十六进制
4读入一个整数。将他插入到有10个数组的有序数组中（从小到大。整型数据）。要求插入后仍有序，（原有数组从键盘读入。）
2013年04月21日 05点04分 1
level 1
Newn瓢瓜
手机党，，不方便，，等下慢慢来
2013年04月23日 03点04分 2
level 1
Newn瓢瓜
手机党，，不方便，，等下慢慢来
2013年04月23日 04点04分 3
level 1
Newn瓢瓜
Program 1; Var a:string[10]; i,b:integer; Begin read(a); b:=0; for i:=1 to 10 do b:=b+ord(a[i]); write(b); End;
2013年04月23日 04点04分 4
汪靖恒
程序错了，ord函数后面加-48
2013年04月23日 11点04分
璐村惂鐢ㄦ埛_0E43K48馃惥
for i:=1 to length(a) do 吧
2013年04月23日 12点04分
汪靖恒
回复 可否考虑q :1 to10其实编译可以通过。。。就不知道会不会RE了。。。
2013年04月23日 12点04分
level 13
Meau_遗忘
加qq912101736 加的时候备注
2013年04月23日 11点04分 6
bp大叶子yy
你还弄Pascal吗？我有好多题不会[汗]，能不能帮个忙[乖]
2015年05月19日 05点05分
Meau_遗忘
回复
bp��Ҷ��yy
:我好久没碰了 玩C++了[委屈]可能还有点记忆但是肯定很生疏了　　　--小尾巴小尾巴 　　　--来自oneplus babyskin白　 　　　--百度贴吧　
2015年05月22日 11点05分
bp大叶子yy
回复 Meau_遗忘 ：明白了。。。我再研究研究
2015年05月22日 12点05分
level 13
汪靖恒
@可否考虑q 碰上你喜欢的水题[滑稽]
2013年04月23日 11点04分 7
璐村惂鐢ㄦ埛_0E43K48馃惥
求大神轻D
2013年04月23日 12点04分
汪靖恒
回复 可否考虑q :你不是很乐于助人的么[疑问]
2013年04月23日 12点04分
璐村惂鐢ㄦ埛_0E43K48馃惥
回复 汪靖恒 :那同时可以巩固自己以前学的东西~囧 ——初学者的世界，大神永远懂不了
2013年04月23日 12点04分
level 1
cckkybz
我是编程方面比较菜鸟的，最近在学《聪明人的游戏——信息学探秘》这本书，有两题不会，分别是第二章综合练习中的一二两题（animal）和（teasu），大家能帮帮我吗？下午就要拿去提交评测了，请大家帮个忙吧
2015年05月17日 03点05分 9
level 6
gt2k01-
1)
var i,j:longint;
a:array [1..10] of 0..9;
begin {main}
i:=1; j:=0;
while not eof do
begin
read(a[i]) inc(j,a[i]); inc(i);
end;
writeln(j);
end.
2015年05月22日 11点05分 10
level 6
gt2k01-
2)
var i,j,k:longint;
a:array [1..50] of longint;
begin
j:=-25;
for i:=1 to 50 do
begin
read(a[i]); if a[i]>j then
begin
j:=a[i]; k:=i;
end;
end;
writeln(j,' ',k);
end.
2015年05月22日 11点05分 11
level 6
gt2k01-
3)
var n,i,j:longint;
a:array [1..1000] of longint;
begin
i:=0;
readln(n);
while n<>0 do
begin
inc(i); a[i]:=n mod 16; n:=n div 16;
end;
for j:=i downto 1 do
if a[j]<10 then write(a[j])
else case a[j] of
10:write('A');
11:write('B');
12:write('C');
13:write('D');
14:write('E');
15:write('F');
end;
end.
2015年05月22日 12点05分 12
level 6
gt2k01-
4)
var n,i,j:longint;
a:array [1..10] of longint;
begin
readln(n);
for i:=1 to 10 do read(a[i]);
if n<a[1] then
begin
write(n,' '); for i:=1 to 9 do write(a[i],' '); writeln(a[10]); exit;
end;
if n>a[10] then
begin
for i:=1 to 10 do write(a[i],' '); writeln(n); exit;
end;
i:=1; while a[i]<n do
begin
write(a[i],' '); inc(i);
end;
write(n,' '); for j:=i+1 to 9 do write(a[j],' '); writeln(a[10]);
end.
2015年05月22日 12点05分 13
1