image004

IV. Uzupełnij poniższy kod. tak aby w danej chwili co najwyżej jeden proces mógł jednocześnie mieć dostęp do współdzielonej tablicy:

var Tablica: array [1:10} of process B

char;	begin
var S: binary semaphore * 1;	while (true) do begin
process A begijn	wczytaj_dane(Tablica) ;
while (true) do begin drukuj_dane(Tablica);	end; end;
end;	begin
end;	end.