01 семестр / Разное / Готовые решённые задачи в формате ТХТ / Массив записей / Спортсмены

program cpot;

{$APPTYPE CONSOLE}



uses
SysUtils;
type sport=record
fam:string[10];
ball:array [1..3] of integer;

end;
sportsmen=array[1..10] of sport;

procedure VVOD(var A:sportsmen; var n:integer);
var i,j:integer;
begin
writeln('Vvedite kolichestvo sportsmenov');
readln(n);
for i:=1 to n do begin
writeln('Vvedite familiu');
readln(A[i].fam);
writeln('Vvedite 3 rezultata');
for j:=1 to 3 do begin
read (a[i].ball[j]);

end;
readln;
end;
end;

procedure VIVOD(A:sportsmen;n:integer);
var i,j:integer;
begin
writeln('Familia ball 1 ball 2 ball 3');
for i:=1 to n do begin writeln(a[i].fam,' ');
for j:=1 to 3 do write(a[i].ball[j]:6);
end;

end;

function REC (A:sportsmen;n:integer;star:integer):boolean;
var i,j,s:integer;
begin
REC:=false;
for i:=1 to n do begin
S:=0;
for j:=1 to 3 do S:=s+a[i].ball[j];
if S>star then
REC:=true;
end;
end;

var Sp:sportsmen;
n,star:integer;
begin
VVOD(Sp,n);
writeln('Vvedite starii rezultat');
readln(star);
if REC(Sp,n,star) then writeln('ruzeltat pobit')
else writeln('rezultat ne pobit');
readln;
end.