Program abc;Const n=3; m=3;Var a:array[1..n,1..m] of integer; b,y,i,j,sum:integer; srd:real; Begin Writeln('Введите числа массива: '); For i:=1 to n do For j:=1 to m do Begin Write('a[',i,',',j,']= '); Readln(a[i,j]); if a[i,j]>0 then begin sum:=sum+a[i,j]; inc(b); end else If a[i,j]<0 then Inc(y); End; If sum>0 then begin srd:=sum/1 b; Writeln('Среднее =',srd); end else Writeln('Нет положительных членов массива'); If y>0 then begin Writeln('Количество отрицательных элементов =',y); end else Writeln('Нет отрицательных членов массива');End.
Составьте таблицу истинности для выражения неА*неВ: 3 столбика - А, В, неА*неВ и 32 строки/не обязательно все чертить/. Мы знаем, что 8 строк в А и 8 строк в В - единицы, но их распорядок в таблице мы можем задать сами. Минимальное число единиц = максимально число нулей. Выражение неА*неВ=0, когда А=0 и В=1 ИЛИ А=1 и В=0. Значит, напротив 8 единиц в первом столбце А должны находиться нули в столбце В, а напротив единиц в В должны быть <span> быть нули в столбце А/это лучше нарисовать/. Тогда получается 8 строк, где А=1 и В=0, и 8 строк, где А=0, а В=1. В этих строчках неА*неВ=0. Всего их 16, это максимальное количество нулей. В остальных строчках, где А=0 и В=0, неА*неВ = 1. Таких строк 32-16=16. </span>
<span>Минимальное число единиц - 16</span>
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b) := ReadInteger2;
if (a mod 4 = 0) or (b mod 4 = 0) then b += 3;
Println(a, b)
end.
<h3>Числа можно ввести оба через пробел или по одному</h3>
Не дружище, на пять страниц доклад никто делать не будет!