Сформировать третий массив из двух исходных

@DiMka_59 · Регистрация: 09.12.2012

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

@Alles · 08.01.2013, 21:56

Вот один из вариантов решения:

Pascal

const
     n = 10;
var
   a,b,c: array[1..n] of integer;
   i: integer;
begin
     randomize;
     for i:=1 to n do
         begin
              a[i]:=random(10)-5;
              b[i]:=random(10)-5;
         end;
     write('Massive a: ');
     for i:=1 to n do
         write(a[i], ' ');
     writeln;
     write('Massive b: ');
     for i:=1 to n do
         write(b[i], ' ');
     writeln;
     for i:=1 to n do
         if (((a[i]<0) and (b[i]<0)) or ((a[i]>0) and (b[i]>0))) then
            c[i]:=1 else
                    c[i]:=0;
     write('Massive c: ');
     for i:=1 to n do
         write(c[i], ' ');
     writeln;
end.

Добавлено через 17 минут
Нехорошо получилось...Не заметил, что в задании указаны двумерные массивы...

Добавлено через 9 минут
Исправил для двумерных массивов:

Кликните здесь для просмотра всего текста

Pascal

const
     n = 5;
     m = 5;
 
var
   a,b,c: array[1..n, 1..m] of integer;
   i,j: integer;
begin
     randomize;
     for i:=1 to n do
         for j:=1 to m do
         begin
              a[i,j]:=random(10)-5;
              b[i,j]:=random(10)-5;
         end;
     writeln('Massive a: ');
     for i:=1 to n do
         begin
              for j:=1 to m do
              write(a[i,j], ' ');
              writeln;
         end;
     writeln;
     writeln('Massive b: ');
     for i:=1 to n do
         begin
              for j:=1 to m do
              write(b[i,j], ' ');
              writeln;
         end;
     writeln;
     
     for i:=1 to n do
         for j:=1 to m do
         if (((a[i,j]<0) and (b[i,j]<0)) or ((a[i,j]>0) and (b[i,j]>0))) then
            c[i,j]:=1 else
                    c[i,j]:=0;
     writeln('Massive c: ');
     for i:=1 to n do
         begin
              for j:=1 to m do
              write(c[i,j], ' ');
              writeln;
         end;
end.

@DiMka_59 0 / 0 / 0 Регистрация: 09.12.2012 Сообщений: 43
		1
	Сформировать третий массив из двух исходных 08.01.2013, 20:22. Показов 2393. Ответов 1 Метки нет (Все метки) Даны два двумерных массива одинакового размера. Создать третий массив того же размера, где каждый элемент равен 1, если соответствующие элементы первых двух имеют одинаковый знак, иначе — равен 0. 0

Опции темы

Сформировать третий массив из двух исходных

Решение