Pascal В списке сотрудников фирмы (мужчин) заданы стаж их работы и семейное положение. Определить холостого работника с наименьшим стажем работы.

Ну вот смотри часть программы var и begin сам допишешь:

var massiv:array[1 ... 10] of integer; / / стаж

massiv1:array[1 ... 10] of integer; / / семейное положение

x:integer;

for i:=1 to 10 do begin / / 10 человек

massiv[i]:=random (10) ; / / ну стаж любой до 10;

massiv1[i]:=random (2) ; / / если 0 значит холост если 1 - женат

if massiv1[i]=0 then x:=i;

end;

for i:=1 to 10 do begin

if (massiv1[i]=0) and (massiv[i]
writeln ('Холостой работник с наименьшем стажем под номером ', x)

end;