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

Нужно в ворде написать страницу из учебника с формулами HELP ME
2-я и 3-я страница

Показать ответ
Ответ:
only10up
only10up
21.10.2020 05:40
Const
  m = 4;
  n = 3;

var
  a: array[1..m, 1..n] of integer;
  i, j, im, jm, mx, e: integer;

begin
  Randomize;
  mx := -1000;
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(100) - 50;
      e := abs(a[i, j]);
      if mx < e then begin
        mx := e; im := i; jm := j
      end;
      write(a[i,j]:4)
    end;
    writeln
  end;
  writeln;
  writeln('Максимальный по модулю элемент a[', im, ';', jm, ']=', mx)
end.

Тестовое решение:

 -12 -36 -41
   7 -45  12
 -23  48   0
  -1  31  14

Максимальный по модулю элемент a[3;2]=48
0,0(0 оценок)
Ответ:
kurtsmolovp00xqx
kurtsmolovp00xqx
20.04.2023 10:21
        static void Main()
        {
            int[,] arr = new int[3, 5];
            byte i = 0, j, nech = 0;
            while (i < 3)
            {
                j = 0;
                while (j < 5)
                {
                    Console.Write("arr[{0}, {1}] = ", i + 1, j + 1);
                    arr[i, j] = Int32.Parse(Console.ReadLine());
                    if (arr[i, j++]  2 == 1) nech++; //Сразу считаем нечётные элементы
                }
                Console.WriteLine();
                i++;
            }
            Console.WriteLine();
            for (i = 0; i < 3; i++) //Выводим массив
            {
                j = 0;
                while (j < 5)
                    Console.Write("{0,3}", arr[i, j++]);
                Console.WriteLine();
            }
            Console.WriteLine();
            int buf = arr[0, 2]; //Меняем местами
            arr[0, 2] = arr[2, 1];
            arr[2, 1] = buf;
            for (i = 0; i < 3; i++) //Выводим массив
            {
                j = 0;
                while (j < 5)
                    Console.Write("{0,3}", arr[i, j++]);
                Console.WriteLine();
            }
            long p = 1;
            for (j = 0; j < 5; j++)
                p *= arr[1, j];
            Console.WriteLine("Произведение эл. второй строк равно " + p);
            Console.WriteLine("Тут {0} несчётных элементов", nech);
            Console.ReadKey(false);
        }
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота