Двумерные массивы

@136191 · Регистрация: 22.11.2021

Author24 — интернет-сервис помощи студентам

Задать два двумерных массива, у которых число строк не равно числу столбцов. Сформировать третий массив, каждый элемент которого равен 1, если произведение соответствующих элементов двух массивов положительное, и равен 0 в противном случае. Все массивы вывести.

Буду благодарна за помощь!

@ololo111 · 23.11.2021, 23:57

Pascal

type
  mass=array[1..2,1..5] of integer;
var 
  Mass1,Mass2,Mass3:mass;
begin
  for var i:=1 to 2 do
   for var j:=1 to 5 do
    begin
      Mass1[i,j]:=Random(20)-10;
      Mass2[i,j]:=Random(20)-10;
        if ( (Mass1[i,j] * Mass2[i,j]) >=0 ) then
          Mass3[i,j]:=1 else Mass3[i,j]:=0;
    end;
Writeln('Массив №1: ',Mass1);
Writeln('Массив №2: ',Mass2);
Writeln('Массив №3: ',Mass3);
end.

Добавлено через 43 секунды
то-же самое на C#

C#

int[,] Mass1 = new int[2, 5];
int[,] Mass2 = new int[2, 5];
int[,] Mass3 = new int[2, 5];
Random rnd = new Random();
for (int i = 0; i < 5; i++)
    for (int j = 0; j < 2; j++)
{                                       // Заполняем массивы рандомами
    Mass1[j, i] = rnd.Next(-10, 10);
    Mass2[j, i] = rnd.Next(-10, 10);
        if (Mass1[j, i] * Mass2[j, i] >= 0)      // Умножаем 1й и 2й массивы
            Mass3[j, i] = 1; else Mass3[j, i] = 0;  // Заполняем 3й массив
}
foreach (int i in Mass1)        // Вывод массивов
    Console.Write($" {i} ");
Console.WriteLine();
foreach (int i in Mass2)
    Console.Write($" {i} ");
Console.WriteLine();
foreach (int i in Mass3)
    Console.Write($" {i} ");
Console.WriteLine();

@Alvico · 24.11.2021, 04:59

Pascal

begin
  var (m, n) := ReadInteger2;
  var a := MatrRandom(m, n, -99, 99);
  a.Println(4);
  Writeln;
  var b := MatrRandom(m, n, -99, 99);
  b.Println(4);
  Writeln;
  var s := a.ElementsByRow.Zip(b.ElementsByRow, (p, q) -> p  * q > 0 ? 1 : 0);
  var c := MatrByRow(m, n, s);
  c.Print(4)
end.

@XzzzX · 24.11.2021, 07:35

Pascal

##
var (a, a1, a2):= (matrrandom(5, 3, -10, 10), matrrandom(5, 3, -10, 10), new integer[5, 3]);
 
a2.Fill( (i, j) -> a[i,j]*a1[i, j] > 0? 1:0);
 
a.println; println;
a1.println; println;
a2.print;

Сообщение от Alvico

a.Println(4);

ставить в параметр вывода массива четвёрку смысла нет. это и так значение по умолчанию

@Alvico · 24.11.2021, 10:12

Сообщение от XzzzX

ставить в параметр вывода массива четвёрку смысла нет. это и так значение по умолчанию

Вы правы, только мне лениво было помнить (и смотреть) все эти значения по умолчанию ))

@136191 · 24.11.2021, 10:14 **[ТС]**

Спасибо вам огромное! Помогли!

@136191 0 / 0 / 0 Регистрация: 22.11.2021 Сообщений: 18
		1
	Двумерные массивы 22.11.2021, 15:21. Показов 804. Ответов 5 Метки Pascal (Паскаль), pascal abc, pascal abc net, двумерные массивы (Все метки) Задать два двумерных массива, у которых число строк не равно числу столбцов. Сформировать третий массив, каждый элемент которого равен 1, если произведение соответствующих элементов двух массивов положительное, и равен 0 в противном случае. Все массивы вывести. Буду благодарна за помощь! 0

@Alvico 21 / 68 / 18 Регистрация: 12.04.2017 Сообщений: 260
	24.11.2021, 10:12	5
	Сообщение от XzzzX ставить в параметр вывода массива четвёрку смысла нет. это и так значение по умолчанию Вы правы, только мне лениво было помнить (и смотреть) все эти значения по умолчанию )) 0

@136191 0 / 0 / 0 Регистрация: 22.11.2021 Сообщений: 18
	24.11.2021, 10:14 [ТС]	6
	Спасибо вам огромное! Помогли! 0

Двумерные массивы

Решение