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

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

👇
Ответ:
mileshka890
mileshka890
20.01.2021
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.
4,5(74 оценок)
Ответ:
sasha16103
sasha16103
20.01.2021
На каком языке это нужно реализовать?
Вот 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();
Дана целочисленная квадратная матрица, элементы которой вносятся вручную. написать программу, котора
4,6(14 оценок)
Открыть все ответы
Ответ:
ZABENOK123
ZABENOK123
20.01.2021

Задание 1: 4132

4 Экзамен | ЕГЭ | Информатика | Литература

1 Экзамен | ЕГЭ | Информатика

3 Экзамен | ЕГЭ

2 Экзамен & ЕГЭ & Информатика

Задание 2: 3124

3 рыбки

1 рыбки & аквариум

2 рыбки & аквариум & гуппи

4 рыбки & аквариум & гуппи & купить

Задание 3: 3421

3 Сок | Нектар

4 Сок

2 Сок & Апельсин

1 Сок & Апельсин & Яблоко

Задание 4: 2134

2 волейбол | баскетбол | подача | блок

1 волейбол | баскетбол | подача

3 волейбол | баскетбол

4 волейбол & баскетбол & подача

Задание 5: 2341

2 алгоритм & сжатие & графика & архиватор

3 алгоритм & сжатие

4 алгоритм | (сжатие & графика)

1 сжатие | графика | алгоритм

Задание 6: 1423

1 (Автомобили – Ford) & новые

4 Автомобили – Ford

2 Автомобили

3 Автомобили | Ford

Задание 7: 3124

3 отдых & Сочи & Адлер

1 отдых & (Сочи | Адлер)

2 отдых & (море | Сочи | Адлер)

4 отдых | Сочи | Адлер

Задание 8: 4123

4 строительный & стоимость & купить & купить

1 строительный & стоимость & купить

2 строительный | материал | купить

3 строительный | материал | стоимость | купить

Задание 9: 5000

Новосибирск 3300

Красноярск 2200

Новосибирск & Красноярск 500

Новосибирск | Красноярск 5000

Задание 10:

Атос & Портос 335

Атос & Арамис 225

Атос & Портос & Арамис 120

Атос & (Портос | Арамис) 440

Графические подтверждения:


В таблице приведены запросы к поисковому серверу. Расположите номера запросов в порядке убывания кол
В таблице приведены запросы к поисковому серверу. Расположите номера запросов в порядке убывания кол
4,4(48 оценок)
Ответ:
ntaskaeva2
ntaskaeva2
20.01.2021
Type
  mass = array[1..10, 1..10] of real;

var
  a, b, c: mass;
  n, m, i, j, n1, m1: integer;

procedure MatrA(var a: mass);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
    begin
      writeln('a[', i, ',', j, ']: ');
      readln(a[i, j])
    end
end;

procedure MatrB(var b: mass);
var
  i, j: integer;
begin
  for i := 1 to n1 do
    for j := 1 to m1 do
    begin
      writeln('b[', i, ',', j, ']: ');
      readln(b[i, j])
    end
end;

procedure Sum(a, b: mass; var c: mass);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      c[i, j] := a[i, j] + b[i, j];
end;

begin
  writeln('Введите n,m матрицы A');
  readln(n, m);
  MatrA(a);
  writeln('Введите n,m матрицы B');
  readln(n1, m1);
  MatrB(b);
  if (n1 <> n) and (m1 <> m) then
    writeln('Матрицы сложить нельзя')
  else begin
    Sum(a, b, c);
    writeln('A+B');
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(c[i, j]:1:3, ' ');
      writeln
    end
  end;
  readln;
end.
4,7(39 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ