Даны два одномерных массива, создать третий массив, содержащий элементы первого и второго массивов

@Маржан · Регистрация: 07.03.2017

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

Дано два одномерных массива, создать третий массив,который содержит элементы первого и второго массива

@Hitoku · 27.03.2017, 11:56

Pascal

const n=10;
type mas=array [1..n] of integer;
 
procedure vvod(var a:mas);
var i:byte;
begin
   for i:=1 to n do begin
    a[i]:=random(21); write(a[i],' ');
  end;
  writeln;
end;
 
var
  a,b:mas;
  c:array [1..2*n] of integer;
  i:byte;
begin
  randomize;
  vvod(a); vvod(b);
  for i:=1 to n do c[i]:=a[i];
  for i:=n+1 to 2*n do c[i]:=b[i-n];
  for i:=1 to 2*n do write(c[i],' ');
end.

@VladimirD · 27.03.2017, 12:46

Pascal

program Project1;
var
  A,B : array[1..5] of integer;
  C : array[1..10] of integer;
  i:integer;
begin
  for i:=1 to 5 do
   readln (A[i]);
 
  for i:=1 to 5 do
   readln (B[i]);
 
  for i:=1 to 5 do
   begin
    C[i]:=A[i];
    C[i+5]:=B[i];
   end;
 
  for i:=1 to 10 do
   writeln (C[i]);
 
  readln;
end.

@Маржан 0 / 0 / 0 Регистрация: 07.03.2017 Сообщений: 51
		1
	Даны два одномерных массива, создать третий массив, содержащий элементы первого и второго массивов 27.03.2017, 11:20. Показов 3290. Ответов 2 Метки нет (Все метки) Дано два одномерных массива, создать третий массив,который содержит элементы первого и второго массива 0

	27.03.2017, 12:46

Опции темы

Даны два одномерных массива, создать третий массив, содержащий элементы первого и второго массивов

Решение