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

Составить блок схему хотя бы по процедуре uses crt; type mass=array[1..10,1..10] of integer; procedure zam(n,j: integer; var a: mass; m,k,l: integer); var i,f: integer; begin m: =a[1,j]; for i: =1 to n do if (m> a[i,j])or(m=a[i,j]) then begin m: =a[i,j]; k: =i; l: =j; end; writeln(m); if m< > a[1,j] then begin f: =a[1,j]; a[1,j]: =a[k,l]; a[k,l]: =f; end; end; var a,b: mass; i,j,k,l,n,m: integer; begin randomize; readln(n); for i: =1 to n do begin writeln; for j: =1 to n do begin a[i,j]: =random(9)+1; write(a[i,j]: 3); end; end; writeln; for j: =1 to n do zam(n,j,a,m,k,l); for i: =1 to n do begin writeln; for j: =1 to n do write(a[i,j]: 3); end; writeln; for i: =1 to n do begin writeln; for j: =1 to n do begin b[i,j]: =random(9)+1; write(b[i,j]: 3); end; end; writeln; for j: =1 to n do zam(n,j,b,m,k,l); for i: =1 to n do begin writeln; for j: =1 to n do write(b[i,j]: 3); end; writeln; end.

👇
Ответ:
obzoredy
obzoredy
26.02.2020
Блок-схема - в файле
Составить блок схему хотя бы по процедуре uses crt; type mass=array[1..10,1..10] of integer; procedu
4,4(95 оценок)
Открыть все ответы
Ответ:
Буторин1306
Буторин1306
26.02.2020

66

Объяснение:

Всего между планетами есть 13 * 12 / 2 = 78 связей (мысленно разрежем каждую связь пополам, у каждой планеты будет по 12 половин, всего 13 * 12 половин. Значит, целых связей 13 * 12 / 2)

Если выстроить планеты "в цепочку" (1 связана с 2, 2 с 3, ..., 12 с 13), очевидно, связаться всё равно будет можно, при этом останется 12 связей.

Меньше связей оставить не получится: действительно, для того, чтобы связать 2 планеты, нужна одна связь, а чтобы подключить к ним каждую дополнительную планету, придется провести связь от новой планеты к какой-то из уже подключенных.

Можно нарушить не больше 78 - 12 = 66 связей.

4,5(65 оценок)
Ответ:
radion2005
radion2005
26.02.2020

using System;

namespace ConsoleApp18

{

   class Program

   {

       static void Main(string[] args)

       {

           string s = Console.ReadLine();

           int n = int.Parse(s.Split(' ')[0]), m = int.Parse(s.Split(' ')[1]), sum = 0;

           int[,] a = new int[n,m];

           for (int i = 0; i < n; i++)

           {

               s = Console.ReadLine();

               for (int j = 0; j < m; j++)

               {

                   a[i, j] = int.Parse(s.Split(' ')[j]);

                   sum += a[i, j];

               }

           }

           Console.WriteLine(sum);

           Console.ReadKey();

       }

   }

}

Объяснение:

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