napisalam program z pracownikami i musze dodac do niego jeszcze procedure obliczajaca srednia pensje.
program prac;
uses
crt;
type
pracownik=record
nazwisko:string[15];
wiek:byte;
pensja:real;
end;
plik=file of pracownik;
procedure wprowadz(var pl:plik);
var
p:pracownik;
i,n:byte;
begin
clrscr;
rewrite(pl);
write('podaj liczbe pracownikow :');
readln(n);
for i:=1 to n do
begin
writeln('pracownik nr:',i);
write('nazwisko');readln(p.nazwisko);
write('pensja');readln(p.pensja);
write('wiek');readln(p.wiek);
write(pl,p);
end;
close(pl);
end;
procedure wyswietl(var pl:plik);
var
p:pracownik;
begin
clrscr;
reset(pl);
while not eof(pl) do
begin
read(pl,p);
if p.wiek>40 then writeln(p.nazwisko);
end;
close(pl);
end;
var
pl:plik;
begin
assign(pl,'baza.dat');
wprowadz(pl);
wyswietl(pl);
readkey;
end.
prosze o odpowiedz