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

Заполните кроссворд и получите ключевое слово. Вопросы по горизонтали:

1. Одно из свойств недостатков блокчейна.

2. Благодаря данному интернет-сервису можно группировать усилия для осуществления добычи криптовалют совместно.

3. Псевдоним человека или группы людей, разработавших протокол криптовалюты бигкоин.

4. Характеристика ситуации, имеющей неопределенность исхода, при обязательном наличии неблагоприятных последствий.

5. Строка символов, которая осуществляет открытие доступа.

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

7. Борьба за включение в блокчейн нового блока.

8. Самая дорогая, старая криптовалюта

👇
Открыть все ответы
Ответ:
Дарьялол1
Дарьялол1
17.08.2020
Const
   N = 30;
Var
   T:array[1..N] of integer;
   i,k:integer;
Begin
Write('Температура в течение месяца:');
k:=0;
For i:= 1 to N do
    Begin
    T[i]:=random(20)-15;
    Write(' ',T[i]);
    if T[i] < 0 then k:=k+1;
    End;
WriteLn;
WriteLn('Количество дней, когда температура опускалась ниже нуля: ',k);
End.

Пример работы программы:

Температура в течение месяца: -3 -5 -4 1 -11 -5 0 2 2 4 3 -6 -7 -4 -14 -11 -15 -14 -15 0 -7 -14 -13 -13 -12 -1 -3 -13 -15 -5
Количество дней, когда температура опускалась ниже нуля: 23
4,5(96 оценок)
Ответ:
araitokbasova
araitokbasova
17.08.2020
Const
   N = 3;
Var
   A:array[1..N,1..N] of integer;
   i,j:integer;
   Min,S:real;
Begin
Randomize;
WriteLn('Исходная матрица:');
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
WriteLn;
Min:=0;
For i:= 1 to N do
    Min:=Min+Abs(A[i,1]);
For j:= 2 to N do
    Begin
    S:=0;
    For i:= 1 to N do
        S:=S+Abs(A[i,j]);
    if S<Min then Min:=S;
    End;
WriteLn('Min = ',Min);
End.

Пример работы программы:

Исходная матрица:
  8   3   0
  1   3  -5
  3 -10  -6

Min = 11
4,4(65 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ