exer8_5.pas

来自「关于课件 好多种结构的算法 等等 大家自己看吧」· PAS 代码 · 共 25 行

program p8_5(input,output);
type
 ary=array[1..10]of integer;
var
 a,b:ary;
 {b:array[1..10]of real;}
 i:integer;
 mu:integer;
procedure mul(c,d:ary;m:real);
var i:integer;
 begin
  m:=0;
  for i:=1 to 10 do
   m:=m+c[i]*d[i];
 end;
begin
  for i:=1 to 10 do read(a[i]);
  b:=a;
  mu:=0;
  for i:=1 to 10 do mu:=mu+i*i;
  writeln(mu);
  for i:=1 to 10 do write(b[i]);writeln;
  mul(a,b,mu);
  writeln('mu',mu)
end.