pascal输入一组数求这组里的最大的数

对与初学者,楼上那位考虑不周啊
应该在程序中加入一些互动才对.
program woxiede;
var a:array[1..1000] of real;
n:integer;
i,t:real
begin
write(' Ni Yao Shu Ru Ji Ge Shu:');
readln(n);
writeln('Qing Fen Bie Shu Ru Zhe Xie Shu:')
for i:=1 to n do
begin
write('A',i);
readln(a[i]);
end;
t:=0;
for i:=1 to n do if t<a[i] then t:=a[i];
writeln(t);
readln;
end.
这个程序比上个好得多啊,还支持输入输出小数.
同意楼上的说法.楼上的楼上的回答太不负责任拉!

不懂这个语言，但求最大数是非常容易的。
只要一个IF语句记录下最大的，如果比它大就替换就行了。
比如C#
string [] atemp={1,2,3,4,5,6}
int endsub=0;
for(int i=0;i<atemp.length;i++)
{
if(ednsub<atemp[i])
{
endsub=atemp[i];
}
}

program xxx;
var
a:array[1..n] of integer;
i,t:integer;
begin
t:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do
if t<a[i] then t:=a[i];
write(t);
end.