pascal记录类型

来源：百度知道 编辑：UC知道 时间：2024/06/30 02:31:24
一个程序，求n位同学的语数英科的成绩平均分
老师要求：输入字符串（含名字），要用函数把名字删掉，取字串

不用记录，用数组就行了，而且NOIP省赛对记录没有要求，不建议去看记录
program wood;
var i,n:integer;
c,m,e,p:array[1..100] of real;
begin
readln(n);
for i:=1 to n do
begin
read(c[i],m[i],e[i]);
p[i]:=(c[i]+m[i]+e[i]) / 3 ;
end;
for i:=1 to n do
write(p[i],' ');
end.

#include<iostream>
using namespace std;
int main(void)
{
long n,c=0,m=0,e=0,x,y,z;
cin>>n;
for (int i=1;i<=n;++i)
{
cin>>x>>y>>z;
c+=x;m+=y;e+=z;
}
cout<<(c/n)<<(m/n)<<(e/n)<<"\n";
return 0;
}

program sad;
var i,j:integer;s:real;
a:array[1..100] of real;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
s:=a[i]+s;
end;
s:=s/n;
writeln(s:0:2);
end.

program xu_1;
var
s:real;
n,i:integer;
a:array[1..1000]