Опубликовано 5 лет назад по предмету Информатика от pashtet2000

Дана целочисленная квадратная матрица, элементы которой вносятся вручную. Написать программу, которая подсчитывает количество четных элементов матрицы, расположенных в первой и последней строке, а также в первом и последнем столбце

Ответ

Ответ дан CSharper

На каком языке это нужно реализовать?
Вот C#

Console.Write("Введите количество строк: ");
            int rows = Convert.ToInt32(Console.ReadLine());
            Console.Write("Введите количество столбцов: ");
            int columns = Convert.ToInt32(Console.ReadLine());

            int[,] matrix = new int[rows, columns];

            int sumRows = 0;
            int sumColumns = 0;

            for (int i = 0; i < rows;i++)
            {
                for (int j = 0; j < columns;j++)
                {
                    Console.Write($"Введите элемент [{i},{j}]: ");

                    int number = Convert.ToInt32(Console.ReadLine());

                    matrix[i, j] = number;
                    if (i == 0 || i == rows - 1) sumRows += number;
                    if (j == 0 || j == columns - 1) sumColumns += number;
                }
            }

            for (int i = 0; i < rows;i++)
            {
                for (int j = 0; j < columns;j++)
                {
                    Console.Write($"{matrix[i, j]}t");
                }
                Console.WriteLine();
            }

            Console.WriteLine($"Сумма элементов на первой и последней строке: {sumRows}");
            Console.WriteLine($"Сумма элементов на первом и последнем столбце: {sumColumns}");

            Console.ReadLine();
Ответ

Ответ дан Аккаунт удален

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Вводите элементыв построчнон через пробел ***');
var a:=ReadMatrInteger(n,n);
Writeln(4*a.ColCount*'-');
Writeln('Количество четных элементов в первой и последней строке: ',
      a.Row(0).Where(t->t.IsEven).Count+
      a.Row(n-1).Where(t->t.IsEven).Count);
Writeln('Количество четных элементов в первом и последнем столбце: ',
      a.Col(0).Where(t->t.IsEven).Count+
      a.Col(n-1).Where(t->t.IsEven).Count);
end.

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.

Информация