2 номер таблица истинности
0 0
0 0
0 1
1 1
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');
var a := MatrGen(m, n, (i, j)-> j.IsOdd ? 1 : 0);
a.Println(2)
end.
В цикле, кажется, так:
for I:=1 to N do
If (Mas[I] mod 2 = 0) and (Mas[I] mod 3 = 0) and (Mas[I+1] mod 2 = 0) and (Mas[I+1] mod 3 = 0)
then Sum:=Sum+1;
Перед этим, конечно, нужно заполнить массив. N - число элементов и обнулить сумму. Можно заполнить в том же цикле:
Sum:=0;
writeln ('Число элементов:');
readln(n);
writeln ('Числа:')
for I:=1 to N do begin
readln (Mas[I]);
If (Mas[I] mod 2 = 0) and (Mas[I] mod 3 = 0) and (Mas[I+1] mod 2 = 0) and (Mas[I+1] mod 3 = 0)
then Sum:=Sum+1;
end;
writeln ('Sum=',Sum);
В линейном алгоритме все действия происходят однократно на заданном порядке.