// PascalABC.NET 3.2, сборка 1346 от 25.11.2016 // Внимание! Если программа не работает, обновите её версию!
begin var n:=30; var a:=ArrRandom(n,-15,15); a.Println; var mx:=a[0]+a[n-1]; for var i:=2 to (n-1) div 2 do begin var s:=a[i]+a[n-i-1]; if s>mx then mx:=s end; Writeln('Максимальная из сумм сходящихся пар: ',mx); // сортировка выбором var j:=n-1; while j>0 do begin mx:=a[0]; var imx:=0; for var i:=1 to j do if a[i]>mx then begin mx:=a[i]; imx:=i end; a[imx]:=a[j]; a[j]:=mx; j-=1 end; a.Println end.
15 учеников14 любят ходить в кинотеатр. триллер- 6 учеников, фэнтези- 5 учеников,комедию- 10 1 ученик смотрит только триллеры,2 ученика смотрят только фэнтези, 5 учеников смотрят только комедии 3 ученика смотрят и триллеры и комедии1 ученик –и фэнтези, и комедиириллеры и фэнтези не смотрит ни один ученик
1 только триллеры 2 только фэнтези5 только комедии 15 - 1 - 8 = 6 6 человек
5 триллер3 фэнтези5 комедии 1 ученик –и фэнтези, и комедии т.е.осталось 5 триллер2 фэнтези4 комедии 3 ученика смотрят и триллеры и комедиит.е. осталось 2 триллер2 фэнтези 1 комедии т.е. получается 1 смотрит все1 смотрит триллер1 смотрит фэнтези+1+3и + те 8 учеников которые смотрят1 только триллеры 2 только фэнтези5 только комедии
Объяснение:
1)
столбцы: 1)а 2) b 3)с 4)¬a 5)¬A˄ B 6)F = ( ¬A˄ B ) ˅C
0 0 0 1 0 0
0 0 1 1 0 1
0 1 0 1 1 1
0 1 1 1 1 1
1 0 0 0 0 0
1 0 1 0 0 1
1 1 0 0 0 0
1 1 1 0 0 1
2) столбцы: 1)а 2) b 3)с 4)¬b 5)¬c 6)¬b∧¬c 7)b∨¬b∧¬c 8)F
0 0 0 1 1 1 1 0
0 0 1 1 0 0 0 0
0 1 0 0 1 0 1 0
0 1 1 0 0 0 1 0
1 0 0 1 1 1 1 1
1 0 1 1 0 0 0 0
1 1 0 0 1 0 1 1
1 1 1 0 0 0 1 1
3) 1)a 2)b 3)¬a 4)¬a∧b 5)¬a∧b∨a 6)¬a∧b∨a∨b 7) F=¬a∧b∨a∨b∨a
0 0 1 0 0 0 0
0 1 1 1 1 1 1
1 0 0 0 1 1 1
1 1 0 0 1 1 1