pascal:输入20个数,A1,A2,A3......A20.

来源：百度知道 编辑：UC知道 时间：2024/05/29 14:02:03
输入20个数,A1,A2,A3......A20.
求B1=(A1+A2)/2,B2=(A3+A4)/2,......B10=(A19+A20)/2.
C1=√(A1^2+A20^2) (就是A1的平方加A2的平方的平方根)
C2=√(A2^2+A19^2)......
C10=√(A10^2+A11^2)

没看懂你要说什么
我的理解是A加上那个数。。：
program project1;
type
tab=array [1..20] of real;
var i:integer;t:tab;
begin
writeln('please input 20 numbers') ;
for i:=1 to 20 do readln(t[i]);
writeln('your numbers:');
for i:=1 to 20 do writeln('A',t[i]);
readln;
end.

var
a:array[1..20] of longint;
b,c:array[1..10] of real;
i,j:longint;
begin
for i:=1 to 20 do readln(a[i]);
for i:=1 to 10 do b[i]:=(a[i*2]+a[i*2-1])/2;
for i:=1 to 10 do c[i]:=sqrt(sqr(a[i])+sqr(a[20-i+1]));
end.