Pascal

function geriausias_grybautojas(b,r,l:grybautojai):integer;
var i,max,sum:integer;
begin
 max:=0;
 sum:=0;
 for i:=1 to 100 do
 begin
   sum:=b[i]+r[i]+l[i];
   if max<sum
   then
   begin
     max:=sum;
     geriausias_grybautojas:=i;
   end;
 end;
end;

sum:=b+r+l;

Paryškina ir meta "Operator is not overloaded". Ką tai reiškia?

Leisk paklausti. Iš kur tu ištraukei sum:=b+r+l; jei nėra masyvo? :) Todėl tau ir meta "Operator is not overloaded" ;)

Leisk paklausti. Iš kur tu ištraukei sum:=b+r+l; jei nėra masyvo? :) Todėl tau ir meta "Operator is not overloaded" ;)

Taigi čia tik funkcija :)

Visas kodas:

program Noname14;
//---------------------------------------------------------
type masyvas1 = record
        vardas: string[15];
        baravykai: integer;
        raudonikiai: integer;
        lepsiai: integer;
        end;
grybautojai = array [1..100] of masyvas1;
//---------------------------------------------------------
var grybautojas:integer;
   masyvas:grybautojai;
//---------------------------------------------------------
procedure duomenys;
var i,j,n,d,b,r,l:integer;
   vardas:string[15];
   duomenys:text;
begin
 assign(duomenys, 'U2.txt');
 reset(duomenys);
 readln(duomenys, n);
 for i:=1 to n do
 begin
  readln(duomenys, vardas, d);
  masyvas[i].vardas:=vardas;
  for j:=1 to d do
  begin
   readln(duomenys,b,r,l);
   masyvas[j].baravykai:=masyvas[j].baravykai + b;
   masyvas[j].raudonikiai:=masyvas[j].raudonikiai + r;
   masyvas[j].lepsiai:=masyvas[j].lepsiai + l;
  end;
 end;
end;
//---------------------------------------------------------
procedure rezultatai;
var i:integer;
begin
 for i:=1 to 100 do
 begin
  writeln(masyvas[i].vardas:15, masyvas[i].baravykai:5, masyvas[i].raudonikiai:5, masyvas[i].lepsiai:5);
 end;
end;
//---------------------------------------------------------
function geriausias_grybautojas(b,r,l:grybautojai):integer;
var i,max,sum:integer;
begin
 max:=0;
 sum:=0;
 for i:=1 to 100 do
 begin
   sum:=b[i]+r[i]+l[i];
   if max<sum
   then
   begin
     max:=sum;
     geriausias_grybautojas:=i;
   end;
 end;
end;
//---------------------------------------------------------
begin
 duomenys;
 rezultatai;
 grybautojas:=geriausias_grybautojas(masyvas.baravykai,masyvas.raudonikiai,masyvas.lepsiai);
 writeln(masyvas[grybautojas].vardas:15, masyvas[grybautojas].baravykai+masyvas[grybautojas].raudonikiai+masyvas[grybautojas].lepsiai:5);
 Readln;
end.

p.s. į kitas klaidas neikreipkit dėmesio, lopau :)

Jeigu pas tave b,r,l:grybautojai, kurie yra recordų masyvas, tai b tipas yra record.

kitaip tariant tu į integer sum bandai sudėti recordus. pas tave b,r,l turi būti integer.

į funkciją turi paduoti tarkim masyvas:grybautojai

o sum:= masyvas.baravykai + masyvas.lepšiai + masyvas.raudonikiai