Получить третий массив, каждый элемент которого равен большему из соответствующих элементов заданных массивов.

@Simonika · Регистрация: 12.10.2010

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

Даны два целочисленных массива, состоящие из одинакового числа элементов. Получить третий массив той же размерности, каждый элемент которого равен большему из соответствующих элементов данных массивов. (Например, А=(2, -9, 5, 7, -12); В=(9, -7, 4, 18, -6), результат С=(9, -7, 5, 18, 12))

Delphi

Procedure Obmen2(Var m : MyArray; n, k1, k2 : integer;);
Var
  x : integer;
Begin
  x:=m[k1];
  m[k1] := m[k2];
  m[k2] := x;
End;

так?

Delphi

Procedure Sum-Ar(a, b: myarray; Var c: myarray);
Var i : Integer;
Begin
For i:=1 To n Do c[i]:=a[i]+b[i];
End;

@ENER · 06.12.2010, 18:50

Pascal

var
 a1:array [1..100] of integer;
 a2:array [1..100] of integer;
 b1,b2,i,n,x1,x2,x3,j,s1,q:integer;
begin
 randomize;
 write ('Enter n '); read (n); writeln ('You entered ',n);
 if n>100 then n:=100;
 x1:=1;
 x2:=1;
 for i:=1 to n do
  begin
   a1[x1]:=random(10);
   a2[x1]:=random(10);
   x1:=x1+1;
   x2:=x2+1;
  end;
{--------------------}
 x1:=1;
 x2:=1;
 write ('mass1: ');
{--------------------}
 for i:=1 to n do
  begin
   b1:=a1[x1];
   x1:=x1+1;
   write(b1,' ');
  end;
 writeln;
 write ('mass2: ');
{--------------------}
 for i:=1 to n do
  begin
   b2:=a2[x2];
   x2:=x2+1;
   write(b2,' ');
  end;
 writeln;
 write ('mass3: ');
 x1:=1;
 x2:=1;
{--------------------}
 for s1:=1 to n do
  begin
   if a1[x1]>a2[x2] then q:=a1[x1] else q:=a2[x2];
   write(q,' ');
   x1:=x1+1;
   x2:=x2+1;
  end;
  readln;
  readln;
end.

@Simonika · 06.12.2010, 19:23 **[ТС]**

А можно еще коментарии попросить=)))

@Simonika 0 / 0 / 0 Регистрация: 12.10.2010 Сообщений: 46
	06.12.2010, 19:23 [ТС]	3
	А можно еще коментарии попросить=))) 0

Опции темы