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

@свОбОднАЯ · Регистрация: 10.11.2013

Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В – из m элементов), заполненных случайным образом числами из промежутка [L,P]. Сформировать из элементов этих массивов два новых массива (C,D) по правилу, описанному в Вашем варианте. (Ввод и вывод массивов оформить в процедурах).
n= 22, m= 16, L= -50, P=30;
Массив С состоит из элементов исходных массивов, меньших первого элемента массива А, а массив D – больших второго элемента массива В.

@свОбОднАЯ · 20.11.2013, 09:33 **[ТС]**

Pascal

program pr1;
const n=22;m=16;
type mas=array [1..m+n] of integer;
var a,b,c,d:mas;
i,j,k1,k2:integer;
procedure vvod(x:integer;var e:mas);
var i:integer;
begin
for i:=1 to x do
e[i]:=random(81)-50;
end;
procedure vivod(x:integer;var e:mas);
var i:integer;
begin
for i:=1 to x do
write(e[i]:4);
writeln;
end;
begin
randomize;
vvod(n,a);
write(' A ');
vivod(n,a);
vvod(m,b);
write(' B ');
vivod(m,b);
write(' C ');
k1:=0;
for i:=1 to n do
if a[i]<a[1] then begin
k1:=k1+1;
c[k1]:=a[i];
end;
for j:=1 to m do
if b[j]<a[1] then begin
k1:=k1+1;
c[k1]:=b[j];
end;
vivod(k1,c);
write('D ');
k2:=0;
for i:=1 to n do
if a[i]>b[2] then begin
k2:=k2+1;
d[k2]:=a[i];
end;
for j:=1 to m do
if b[j]>b[2] then begin
k2:=k2+1;
d[k2]:=b[j];
end;
vivod(k2,d);
end.

@свОбОднАЯ 0 / 0 / 1 Регистрация: 10.11.2013 Сообщений: 5
		1
	Сформировать третий массив из двух исходных 10.11.2013, 11:53. Показов 2794. Ответов 1 Метки нет (Все метки) Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В – из m элементов), заполненных случайным образом числами из промежутка [L,P]. Сформировать из элементов этих массивов два новых массива (C,D) по правилу, описанному в Вашем варианте. (Ввод и вывод массивов оформить в процедурах). n= 22, m= 16, L= -50, P=30; Массив С состоит из элементов исходных массивов, меньших первого элемента массива А, а массив D – больших второго элемента массива В. 0

Опции темы

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

Решение