C++ Series36. Дано целое число K, а также K наборов ненулевых целых чисел. Каждый набор содержит не менее двух элементов, признаком его завершения является число 0. Найти количество наборов, элементы которых возрастают.

Series37. Дано целое число K, а также K наборов ненулевых целых чисел. Каждый набор содержит не менее двух элементов, признаком его завершения является число 0. Найти количество наборов, элементы которых возрастают или убывают.

а) Ситуация: человек смотрит телевизор Источник: телевизор → Приёмщик: человек

b) Ситуация: пешеход переходит дорогу на зелёный свет светофора

Источник: светофор → Приёмщик: пешеход

c) Ситуация: ученик готовит доклад

Источник: книги, интернет, люди → Приёмщик: ученик

d) Ситуация: мама разговаривает со своей дочкой

Источник-приёмщик: мама → Приёмщик-источник: дочка

2)1. Звук барабана особенно популярен среди африканских племён. Он распространить сигнал о тревоге на несколько километров.

2. Для передачи сигнала на большие расстояния разные народы использовали дым костра.

3. Для передачи информации на дальние расстояния использовали гонцов.

4. С развитием письменности появилось такое средство дальней связи, как почта.

5. Радио является звуковым каналом передачи информации на большие расстояния. Это и общая развлекательная, и новостная информация.

6. Телефон является личным каналом информации. Используется людьми для общения.

7. Телевидение многоканальный канал информации. Происходит передача как звуковой, так и видеоинформации.

8. Спутники необходимы для передачи информации различного свойства на большие расстояния.

9. Сеть интернет «Всемирная паутина» является каналом связи для передачи различного вида информации.

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

readln;
end.