image003

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		wczytaj dane(Tablica);
begi|n
while (true) do begin	end; end;
drukuj_dane(Tablica);
	begin
end;
end;	end.