Program N12345678901011121314;
uses crt;
const n=8;
var
e:array[1..n] of integer;
vid,nom,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Елементи масиву:');
randomize;
nom:=0; //номер 5-го елементу
vid:=0; // к-ть негативних елементів
for i:=1 to n do
begin
e[i]:=random(100)-50;
write (e[i]:5);
if e[i]<0 then
vid:=vid+1;
if (e[i]<0) and (vid = 5) then
nom:=i;
end;
writeln();writeln();
if nom<>0 then
writeln('Номер 5-го негативного елементу: ',nom)
else
writeln('Такого елемента немає');
end.
uses crt;
var i,count:integer;
a:array[1..8] of integer;
begin
count:=0;
randomize;
for i:=1 to 8 do a[i]:=random(19)-8;
for i:=1 to 8 do write(a[i],' ');
writeln;
for i:=1 to 8 do
begin
if a[i]<0 then inc(count);
if (a[i]<0) and (count = 5) then writeln(i);
end;
if count < 5 then writeln('empty');
readln();
end.
uses crt;
var i,count:integer;
a:array[1..8] of integer;
begin
count:=0;
randomize;
for i:=1 to 8 do a[i]:=random(19)-8;
for i:=1 to 8 do write(a[i],' ');
writeln;
for i:=1 to 8 do
begin
if a[i]<0 then inc(count);
if (a[i]<0) and (count = 5) then writeln(i);
end;
if count < 5 then writeln('empty');
readln();
end.
В итоге получилось:
1 человек знает только английский
3 человека знают только французский
0 человек - только немецкий
3 - только английский и немецкий
2 - только немецкий и французский
1 - только английский и французский
1 - все три языка
Задача очень легко решается, если изобразить ее на диаграмме, даже без всех этих рассуждений про множества