Найдите значения выражения 1& (1& 1)& 1

Question

Информатика: Найдите значения выражения 1& (1& 1)& 1

OVRBTZ · Accepted Answer

// Программа и скриншот ее работы в приложениях

const
    T_max=12;

var
    i,j,s:byte;
    m,n:byte;
    T:array[1..T_max, 1..T_max]of integer;

begin
write('Введите значение m>4,n>4 для определения массива T[m,n]: ');
readln(m, n);

writeln('Заполнение массива случайными данными');

//начальные значения min и max
for i:=1 to m do begin
    for j:=1 to n do begin
      T[i,j]:=random(-79,79);// диапазон случайных чисел
      write(T[i,j]:6);

    end;
    writeln();
end;

writeln();
writeln('Определить количество элементов четвертого столбца массива, меньших 5');
s:=0;
for i:=1 to m do
    if (T[i,4]<5) then
      s:=s+1;

writeln('ответ: условию удовлетворяют ', s, ' элементов');
end.

Дан двумерныймассив массив a[n, m]. определить количество элементов четвертого столбца массива, мень

Дан двумерныймассив массив a[n, m]. определить количество элементов четвертого столбца массива, мень

MOGZ ответил