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

5 ЗАДАНИЕ РЕШИТЬ.
Программа за 7 класс,


5 ЗАДАНИЕ РЕШИТЬ. Программа за 7 класс,

👇
Ответ:
Ronnigun029
Ronnigun029
06.08.2021

Объяснение:

Медаль

4,7(64 оценок)
Открыть все ответы
Ответ:
Hatmonu
Hatmonu
06.08.2021

При использовании большого количества терминов и других пояснений в текстовом документе, в конец каждой страницы рекомендуется добавлять примечания. К объясняемому слову или фразе добавляется цифра, под которой вы сможете найти определение в конце листа. Совершать подобные действия вручную не очень удобно, особенно если документ имеет несколько десятков страниц. Далее мы расскажем, как делать сноски в Word в автоматическим режиме.

Как вставить сноску в текст в Word 2003, 2007, 2010

Пошаговая инструкция:

Поставьте курсор мышки на то место, куда необходимо вставить сноску.  

Откройте раздел под названием «Ссылки» и выберите в нем команду «Вставить».  

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

Чтобы вставить следующую сноску в Word, проделайте первые три действия.

В Microsoft Word 2003 изначально следует открыть «Ссылки/Сноски», а после – находить необходимое слово, выставлять возле него курсор и нажимать кнопку «Вставить». Т.е. алгоритм действий немного другой.

Как удалить сноску в Word

Для удаления пояснений следует установить мигающий курсор возле цифры и нажать Delete дважды, либо выделить символ и единожды клацнуть Delete.

Объяснение:

я иисус

4,6(85 оценок)
Ответ:
Rake4
Rake4
06.08.2021

procedure FormMas(a: array[,] of integer; var v: array of int64);

var

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

begin

 m := length(a, 0);

 n := length(a, 1);

 setlength(v, n);

 for j := 0 to n - 1 do

 begin

   v[j] := 1;

   k := 0;

   for i := 0 to m - 1 do

     if a[i, j] < 0 then

     begin

       k := k + 1;

       v[j] := v[j] * a[i, j]

     end;

   if k = 0 then

     v[j] := 0;

 end;

end;

function KolNul(a: array[,] of integer): integer;

var

 m, n, i, j, k, p: integer;

begin

 k := 0;

 m := length(a, 0);

 n := length(a, 1);

 for j := 0 to n - 1 do

 begin

   p := 0;

   for i := 0 to m - 1 do

     if a[i, j] < 0 then

       p := p + 1;

   if p = 0 then

     k := k + 1;

 end;

 KolNul := k;

end;

var

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

 a: array[,] of integer;

 b: array of int64;

begin

 read(m, n);

 setlength(a, m, n);

 for i := 0 to m - 1 do

   for j := 0 to n - 1 do

     read(a[i, j]);

 FormMas(a, b);

 for j := 0 to n - 1 do

   write(b[j], ' ');

 writeln;

 k := KolNul(a);

 write(k);

end.

4,7(96 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ