Из двух массивов сформировать третий по заданному правилу

@HARDF · Регистрация: 11.11.2015

Заданы два массива А и В по N элементов. Сформировать и вывести на печать массив L из 2*N элементов:
L=(A(1)+B(1),A(1)-B(1),A(2)+B(2),A(2)-B(2),........A(N)+B(N),A(N)-B(N))
значение N и элементы массива A ввести с клавиатуры.

Добавлено через 1 час 9 минут

Pascal

var 
   i,j,c,n : integer;
   a,b,l :array  [1..250] of integer;
begin
 randomize; 
 write('Введите размер матриц: ');
 readln(n);  
 writeln();
 write('Ввод матрицы 1: ');
 for i:=1 to n do
  begin
   readln(a[n]);
  end;
 for i:=1 to n do
  begin
   write(a[n]:4);
  end;
 writeln();
 for i:=1 to n do
  begin
   b[i]:=random(100);
   write(b[i]:4);
  end;
 for i:=1 to n*2 do
  begin
   for j:=1 to n do 
    begin
     if (i mod 2 = 0) then l[i]:=a[j]+b[j]
       else l[i]:=a[j]+b[j];
    end;   
  end;
 writeln();
 for i:=1 to n*2 do 
  begin
   write(l[i]:4);
  end;
end.
 
вроде не совсем правильно ((
 
на ошибку можете указать ?
 
[size="1"][color="grey"][I]Добавлено через 51 секунду[/I][/color][/size]
var 
   i,j,c,n : integer;
   a,b,l :array  [1..250] of integer;
begin
 randomize; 
 write('Введите размер матриц: ');
 readln(n);  
 writeln();
 write('Ввод матрицы 1: ');
 for i:=1 to n do
  begin
   readln(a[n]);
  end;
 for i:=1 to n do
  begin
   write(a[n]:4);
  end;
 writeln();
 for i:=1 to n do
  begin
   b[i]:=random(100);
   write(b[i]:4);
  end;
 for i:=1 to n*2 do
  begin
   for j:=1 to n do 
    begin
     if (i mod 2 = 0) then l[i]:=a[j]+b[j]
       else l[i]:=a[j]+b[j];
    end;   
  end;
 writeln();
 for i:=1 to n*2 do 
  begin
   write(l[i]:4);
  end;
end.

вроде не совсем правильно ((

на ошибку можете указать ?

@Puporev · 16.12.2015, 15:29

Pascal

var a,b,l :array  [1..250] of integer;
    n,i : integer;
begin
randomize;
write('Введите размер массивов: ');
readln(n);
writeln('Массив А:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
writeln('Массив B:');
for i:=1 to n do
 begin
  b[i]:=random(100);
  write(b[i]:4);
 end;
writeln;
writeln('Массив L:');
for i:=1 to 2*n do
 begin
  if odd(i) then l[i]:=a[i div 2+1]+b[i div 2+1]
  else l[i]:=a[i div 2]-b[i div 2];
  write(l[i]:4)
 end;
end.

Опции темы