1) Среди москвичей 9 мужчин + Всего иногородних мужчин 18 ⇒ 27 мужчин, 15 женщин
2) Всего иногородних мужчин 18.Из них-13 НЕ артисты ⇒ 5 артистов-иногородних мужчин
3) Среди пассажиров,не являющихся артистами,16 мужчин и 11 женщин + но ни одна из иногородних женщин не является артисткой
+ 15 женщин всего ⇒ 4 актрисы-женщины (все москвички), 11 мужчин-артистов
4) из 2) + 11 мужчин-артистов ⇒ 6 артистов-мужчин из Москвы, 3 мужчин из Москвы - НЕартисты
5) 27 мужчин, 15 женщин; из них москвичей - 9 мужчин, 4 женщины
6) 6 москвичей - НЕартисты, 3 мужчин-москвичей - НЕартисты ⇒ 3 женщины-москвички - НЕартисты
7) 4 актрисы-женщины (все москвички) + 3 женщины-москвички - НЕартисты ⇒ 7 женщин-москвичек
окончательно:
27 мужчин, 15 женщин, из них из Москвы - 9 мужчин и 7 женщин
15 артистов - 4 женщины (все иногородние) и 11 мужчин (6 - из Москвы)
a: array[1..n] of integer;
k, i, m: byte;
min: integer;
begin
Write('Razmer massiva: ');
Readln(k);
if (k < 0) or (k > 100) then
begin
Writeln('Razmer dolzhen byt bolshe 0 i menshe 100');
Readln;
Exit;
end;
Randomize;
Writeln('Ishodn. massiv: ');
for i:=1 to k do
begin
a[i]:=Random(101)-50;
write(a[i]:4);
end;
min:=a[1];
for i:=2 to k do
if a[i] < min then
begin
min:=a[i];
m:=i;
end;
a[m] := a[1];
a[1] := min;
Writeln;
Writeln('Min element = ', min:4, ' v posicii ', m:3);
Writeln('Rezult. massiv: ');
for i:=1 to k do
write(a[i]:4);
readln;
end.