Kod: Zaznacz cały
program blba;
Type osoba = record
imie:string[20];
.
.
.
wiek:integer;
end;
TYPe plik=file of osoba;
Var o:array[1..30] of osoba;
I moja funkcja wygląda tak:
Kod: Zaznacz cały
Function srednia(Var a:plik):real;
VAR c,i:byte;
s:integer;
begin
assign(wiadomo co tutaj);
reset(a);
while not eof(a) do
read(a,o[i]);
begin
s:=s+ o[i].wiek;
i niestety nie mam pomysłu jak to zrobić. Proszę o pomoc wszelaką. Z góry dzięki. A szkoda mi programu, bo już 8 pkt wypełniłem i to trudnych.