Это у нас нормальная коньюктивная форма
Видно что истино выражение может быть только в случае 10001, а все остальные ложны
всего случаев 2*2*2*2*2=32
32-1 = 31
Чтобы принтер мог пропечатать всё. Если бы отступа не было, часть текста была бы не видна или принтер весь был бы в чернилах.
===== PascalABC.NET =====
begin
var a := ArrRandom(15, 0 , 20); // глупый диапазон c) 0 всегда
a. Println;
a.Count(p -> p.IsOdd).Println; // a)
var s := a.Where(p -> (p mod 3 =0) or (p mod 5 = 0));
Println('Сумма', s.Sum, ' Количество', s.Count); // b)
a[1::2].Where(p -> p < 0).Sum.Println // c
end.
Усилители звука, очки, протезы!
Ты объявила массив от 1 до 10, а в конце в цикле пытаешься обратиться к элементу с индексом 0!
(for i:=0 to m do
<span>begin for j:=0 to n do)
Ну и куча мелких недочетов еще тут есть
const
n=5;
m=6;
var
a:array[1..n,1..m] of integer;
i,j: integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
writeln('Измененный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]=0 then a[i,j]:=i+j;
write(a[i,j]:4);
end;
writeln;
end;
<span>end.</span></span>