В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
nyragka
nyragka
21.08.2022 10:41 •  Информатика

При наполнении страниц сайта информационными материалами следует придерживаться следующих рекомендаций:1.В каждом абзаце используйте разные приёмы форматирования.
2.Не размещайте на странице слишком много информационных и художественных блоков.
3.Названия пунктов меню делайте длинными.
4.Названия пунктов меню делайте краткими; недопустимо растягивание названия пункта на несколько строк.
5.Размещайте на странице слишком много информационных и художественных блоков

Показать ответ
Ответ:
жека12рус
жека12рус
20.11.2021 01:25

===== PascalABC.NET =====

function S(a: array[,] of integer) :=

a.Cols.Where(p -> p.All(q -> q >= 0)).SelectMany(p -> p).Sum;

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

begin

 var n := a.RowCount;

 Result := integer.MaxValue;

 var s: integer;

 for var i := 0 to n - 2 do

 begin

   s := 0;

   for var j := 0 to i do

     s += Abs(a[i - j, j]);

   if s < Result then

     Result := s

 end;

 for var j := 1 to n - 1 do

 begin

   s := 0;

   for var i := n - 1 downto j do

     s += Abs(a[i, n - i + j - 1]);

   if s < Result then

     Result := s

 end

end;

begin

 var n := ReadInteger('n =');

 var a := MatrRandom(n, n, -10, 30);

 a.Println;

 S(a).Println;

 M(a).Println;

end.


Написать программу обработки двумерного массива. дана целочисленная квадратная матрица. определить:
0,0(0 оценок)
Ответ:
antoncezame
antoncezame
03.06.2021 08:03

Код программы:

var a:array[1..27] of integer;

b, i, c, ind:integer;  

begin

 a[1]:= 72;

 a[2]:= 76;

 a[3]:= 92;

 a[4]:= 45;

 a[5]:= 55;

 a[6]:= 82;

 a[7]:= 46;

 a[8]:= 39;

 a[9]:= 78;

 a[10]:=50;

 a[11]:=34;  

 a[12]:=71;  

 a[13]:=44;

 a[14]:= 92;

 a[15]:= 38;

 a[16]:= 51;

 a[17]:= 6;

 a[18]:= 45;

 a[19]:= 66;

 a[20]:= 78;

 a[21]:= 19;

 a[22]:= 17;

 a[23]:= 42;

 a[24]:= 36;

 a[25]:= 34;

 a[26]:= 91;

 a[27]:= 61;

 writeln('Введите число');

 readln(b);

 if ((b >= 0) and (b <= 100)) then begin

 c:=abs(b - a[1]);

 for i:=2 to 27 do begin

   if(abs(b - a[i]) <=c) then begin

       c:=abs(b - a[i]);

       ind:=i;  

     end;

 end;

 writeln('Результат: ', a[ind]);

 end

 else

   writeln('Ошибка, число должно быть больше 0 и меньше 100');

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота