Для какого из значений числа x ложно высказывание: не (x < 6) или (x < 5)?

не(x< 6) или (x< 5) = (x> =6) или (x< 5)

 

очевидно, что на полуинтервале  [5; 6)  решения будут ложными.

из целых чисел подходит 5.

 

ответ:     [5; 6)

а какие значения , извините? не (x < 6) или (x < 5)значит (х не меньше 6) х больше равно 6 или х меньше 5то есть в промежутке [ 5 ; 6 ) будут ложные значения.в таких чаще всего берут целые числа, поэтому скорее всего ответ 5.

begin

   var (строк, столбцов) := ReadInteger2('Введи N и M:');

   Writeln('Введите элементы массива построчно');

   var массив := ReadMatrReal(строк, столбцов);

   массив.ElementsByRow.Min.Print

end.

===== Так писали наши деды =====

const

 nn = 50;

 mm = 50;

 

var

 i, j, n, m, min : integer;

 a: array[1..nn, 1..mm] of integer;

begin

 Write('Введи N и M: ');

 Read(n, m);

 Writeln('Введите элементы массива построчно');

 min := 32767;

 for i := 1 to n do

   for j := 1 to n do

   begin

     Read(a[i,j]);

     if a[i,j] < min then

       min := a[i,j]

   end;

 Write(min)

end.

ответ: Программа рабочая, проверена.

Program zadacha;

var  

 a: array [1..50] of integer; // размерность массива = 50

 i,k: integer;

begin

begin

 for i:=1 to 50 do

   a[i] := Random(100); // числа от 0 до 100 будут присутствовать в массиве

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

 for i:=1 to 50 do

   write(a[i],' '); end; // выводим массив на экран до проверки

writeln; //новая строка

writeln('Введите значение числа K: '); readln(k);

writeln('Элементы массива, кратные K:');

for i:=1 to 50 do

if (a[i] mod k = 0) then write(a[i],' ');  

end.

Объяснение:

i - порядковый номер элемента

a - сам массив

k - вводимое число

В остальном оставила комментарии.

Размерность массива и его диапазон указан в программе числами, т.к. в задаче не было во о вводе элементов или вводе размерности.