Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
свОбОднАЯ
0 / 0 / 1
Регистрация: 10.11.2013
Сообщений: 3
#1

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

10.11.2013, 11:53. Просмотров 1363. Ответов 1
Метки нет (Все метки)

Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В – из m элементов), заполненных случайным образом числами из промежутка [L,P]. Сформировать из элементов этих массивов два новых массива (C,D) по правилу, описанному в Вашем варианте. (Ввод и вывод массивов оформить в процедурах).
n= 22, m= 16, L= -50, P=30;
Массив С состоит из элементов исходных массивов, меньших первого элемента массива А, а массив D – больших второго элемента массива В.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.11.2013, 11:53
Ответы с готовыми решениями:

Сформировать третий массив из двух исходных
11 Даны два двухмерных массива одинаковых размеров. а) Создать третий массив...

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

Сформировать третий массив из двух исходных
Даны 2 одномерных массива целых чисел. Создать из них одим массив, расположив...

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

Сформировать третий массив из двух исходных
Даны два двумерных массива одинакового размера. Создать третий массив того же...

1
свОбОднАЯ
0 / 0 / 1
Регистрация: 10.11.2013
Сообщений: 3
20.11.2013, 09:33  [ТС] #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2013, 09:33

Сформировать третий массив из элементов двух исходных
Заданы два вещественных массива. Сформировать третий массив, в который включить...

Сформировать третий массив из элементов двух исходных
Даны два одномерных массива одинаковой длины. Получить третий массив такой же...

Сформировать третий массив из элементов двух исходных
Сформировать третий массив из элементов обоих массивов, больших второго...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru