М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ирина1229
ирина1229
15.03.2021 09:20 •  Информатика

Дайте відповіді на запитання 1. Що таке Інтернет речей? Із чого він складається?
2". Які базові принципи функціонування Інтернету речей?
3. Які ви можете навести приклади використання розумних речей? Поясніть їх
функціонування.
4. Які розумні речі є у вас, ваших однолітків, рідних? Для чого вони їх використо-
вують?
У чому сенс питання інтернет-безпеки під час використання розумних пристроїв?
е". Що розуміють під Smart тexнологіями? Чи використовують іх у вашій
школі?
7. Яке значення має інтернет речей у житті людей?​

👇
Открыть все ответы
Ответ:
tafefuyozo
tafefuyozo
15.03.2021
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
  var m,n:integer;
  Write('Ввведите число строк и столбцов: ');
  Read(m,n);
  var a:=MatrixRandom(m,n,-99,99);
  var Vrow:=ArrFill(m,0);
  var Vcol:=ArrFill(n,0.0);
  for var i:=0 to m-1 do begin
    var max:=-100;
    for var j:=0 to n-1 do begin
      Write(a[i,j]:4);
      if a[i,j]>max then max:=a[i,j]
      end;
    Writeln;
    Vrow[i]:=Max
    end;
  Writeln('Вектор из наибольших значений строк');
  Vrow.Println;
  for var j:=0 to n-1 do begin
    var s:=a[0,j];
    for var i:=1 to m-1 do s+=a[i,j];
    Vcol[j]:=s/m
    end;
  Writeln('Вектор из средних арифметических по столбцам');
  Vcol.Println
end.

Тестовое решение:
Ввведите число строк и столбцов: 5 8
 -82  67 -78  27  69 -80  85  34
  70 -82 -89 -30 -57  31  14  33
  -4  -1 -93 -21  81 -66  48  31
  58  18 -40 -63 -68  40  46 -44
  85  46  31 -61   1  43   2 -94
Вектор из наибольших значений строк
85 70 81 58 85
Вектор из средних арифметических по столбцам
25.4 9.6 -53.8 -29.6 5.2 -6.4 39 -8
4,7(82 оценок)
Ответ:
tykuozlli2
tykuozlli2
15.03.2021
I,j,k:integer;
begin
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(21)-10;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]mod 2<>0 then k:=k+1;
  writeln('Количество нечетных  ',k);  
end.

Тестовое решение:
  10  -1  -1   3   5  -3  -6  -1   2   8
  -5  -5  -3  -1   3  -8  -1  -1  -6  -2
   2  -3   5   0  -1  -4   0   3   7  -8
  -6   5   6   3  -8  -6  -4  10  -3   0
  -5  -4   2  -6 -10  -2  -1   3   5  -7
   2 -10   2  10  -8   2   4   9  -6  -1
   7   1   3  -1   3   0   0   4  -3  -1
   7  -1  -8   4  -8  -5   6   1   0  -9
   7   8   9   3   0  -6  -8   6   0   0
   0  -3   6   8   4   4   4  -8   1   0
Количество нечетных  45
4,6(32 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ