<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
const
n=8;
begin
var a:=MatrixRandom(n,n,10,90);
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do Write(a[i,j]:3);
Writeln
end;
var k:=0;
for var i:=0 to n-1 do
if a[i,i].IsEven then Inc(k);
Writeln('k=',k);
end.
Пример
23 32 75 57 27 14 26 53
46 75 17 68 57 60 10 43
76 10 62 83 62 20 89 15
28 36 71 86 67 13 34 46
84 38 56 90 16 40 19 16
15 39 75 15 23 41 23 70
48 17 50 81 82 18 41 13
33 69 39 82 34 31 77 43
k=3
V = S/t . Насколько я поняла, так как и с дробными числами действия должны выполняться так же.
<em>Высказывание А:</em>"За любой партой сидит ученик, решивший контрольную работу наполовину".
<em>Высказывание В:</em>"Не менее половины класса решило контрольную работу полностью".
Логическая функция F, определяющая понятие "Легкая контрольная работа", может быть записана в виде
Высказывание, что работа не является легкой, есть инверсия функции F.
Сформулируем инверсию высказывания А:
"Хотя бы за одной партой сидит ученик, не решивший контрольную работу наполовину".
Сформулируем инверсию высказывания В:
"Менее половины класса решило контрольную работу полностью".
Тогда инверсия F может быть записана в следующем виде:
<em>Хотя бы за одной партой сидит ученик, не решивший контрольную работу наполовину ИЛИ менее половины класса решило контрольную работу полностью</em>.