Pascal数组元素编程题!!!高手来!!!再线等!!!!

来源：百度知道 编辑：UC知道 时间：2024/06/09 22:21:42
读入一个有n个数组元素的整形数组,请找出其中最大的一个元素.
读入一个十进制自然数,将其转换成二进制后输出.
将a数组中第一个元素移到最后数组末尾,其余数组依次往前平移一个位置.

第1题:
program zuida;
var n,i,t:integer;
a:array[1..999]of integer;
begin
writeln('Qing Shu Ru N ( 0<N<999 )');
write('N = ');
readln(n);
for i:=1 to n do
begin
write('A',i,' = ');
readln(a[i]);
end;
writeln;
t:=-maxint;
for i:=1 to n do
if a[i]>t then t:=a[i];
writeln('Zui Da De Shu Shi: ',t);
readln;
end.
第二题:
program t2;
var
i,t,n:integer;
a:array[1..100] of 0..1;
begin
write('Input n:');
readln(n);
write('n=');
if n<=0 then
begin n:=-n; write('-'); end;
while (n<>0) do
begin
i:=i+1;
t:=n mod 2;
n:=n div 2;
a[i]:=t;
end;
for t:=i downto 1 do
write(a[t]);
readln;
end.
第三题:
program huanxu;
var n,i,t:integer;
a:array[1..999]of integer;