задача про таблицу В таблице хранятся следующие даные об учениках: фамилия, имя, отчество, рост,масса. Вычислить средний рост учеников, рост самого высокого и самого низкого. Сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен быть больше 170?
вот я только составил таблицу и то на половину, не получается остальное....
Code
program a1;
const n=3;
n1=3;
type
ved=record
nom:integer;
fam:string;
och:array [1..3] of integer;
sb:real;
end;
var tbl:array [1..3] of ved;
y:ved;
i,j:integer;
x:real;ch:STRING[80];
k:integer;
procedure vivod;
begin
ch:='****************************************';
writeln (ch);
writeln('*n* fam *um9I*OtchestBo*post*massa*');
writeln (ch);
for i:=1 to n do
with tbl[i] do
writeln (' * ',nom,' * ',fam:9,' * ',och[1],' * ',och[2],' * ',och[3],' * ',sb:3:3,' * ');
writeln (ch);
end;
begin
for i:=1 to n do
with tbl[i] do
begin
nom:=i;
readln(fam);
for j:=1 to n1 do
readln(och[j]);
end;
for i:=1 to n1 do
with tbl[i] do
begin
sb:=0;
for j:=1 to n1 do
sb:=sb+och[j];
sb:=sb/n1;
end;
writeln;
for i:=1 to 2 do
begin
k:=1; x:=tbl[i].sb;
for j:=k to n do
if x<tbl[i].sb
then begin
k:=i; x:=tbl[i].sb;
end;
y:=tbl[k];
tbl[k]:=tbl[i];
tbl[k]:=y;
end;
vivod;
end.
