0 / 0 / 0
Регистрация: 20.05.2013
Сообщений: 29
1

Скопировать из матрицы в один одномерный массив все положительные элементы, а в другой – все отрицательные

10.06.2013, 20:28. Показов 1710. Ответов 5
Метки нет (Все метки)

Заполнить с клавиатуры двумерный массив на 20 элементов. Скопировать из него в один одномерный массив все положительные элементы, а в другой – все отрицательные;
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.06.2013, 20:28
Ответы с готовыми решениями:

Все положительные элементы матрицы записать в один одномерный массив, а остальные - в другой
дан двухмерный массив размером NхN, заполненный целыми числами. все его положительные элементы...

Все положительные элементы матрицы записать в один одномерный массив, а остальные в другой
дан двумерный массив размерностью Н, заполненный целыми числами, все его отрицательные элементы...

Все положительные элементы двумерного массива записать в один одномерный массив, а остальные – в другой
Работа с несколькими массивами: Дан двумерный массив размером nxn , заполненный целыми числами....

Все положительные элементы двумерного массива записать в один одномерный массив, а остальные в другой
Дан двумерный массив размером n на n заполнены целыми числами. все его положительные элементы...

5
314 / 301 / 186
Регистрация: 31.03.2013
Сообщений: 2,294
10.06.2013, 21:15 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
var
a,b,c: array [1..20] of integer;
i,j,l: byte;
begin
writeln('Введите массив A:');
for i:=1 to 20 do readln(a[i]);
write('Массив А: ');
for i:=1 to 20 do write(a[i],' ');
writeln;
j:=0; l:=0;
for i:=1 to 20 do
if (a[i] < 0) then
begin
inc(j);
b[j]:=a[i];
end
else
begin
inc(l);
c[l]:=a[i];
end;
write('Массив B: ');
for i:=1 to j do write(b[i],' ');
writeln;
write('Массив C: ');
for i:=1 to l do write(c[i],' ');
writeln;
end.
0
0 / 0 / 0
Регистрация: 20.05.2013
Сообщений: 29
12.06.2013, 18:13  [ТС] 3
Не правельно перемещает числа...
0
314 / 301 / 186
Регистрация: 31.03.2013
Сообщений: 2,294
12.06.2013, 20:07 4
Цитата Сообщение от Владимир_73 Посмотреть сообщение
Не правильно перемещает числа...
Странно, у меня все вроде бы правильно:
Миниатюры
Скопировать из матрицы в один одномерный массив все положительные элементы, а в другой – все отрицательные  
0
314 / 301 / 186
Регистрация: 31.03.2013
Сообщений: 2,294
12.06.2013, 20:13 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

аааа, все понял, там был двумерный массив

Добавлено через 14 секунд
Сейчас переделаю )

Добавлено через 4 минуты
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
uses crt;
var
a: array [1..4,1..5] of integer;
b,c: array [1..20] of integer;
i,j,l,k: byte;
begin
writeln('Введите массив A:');
for i:=1 to 4 do
for j:=1 to 5 do
readln(a[i,j]);
writeln('Массив А:');
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
write(a[i,j],' ');
end;
writeln;
end;
l:=0; k:=0;
for i:=1 to 4 do
for j:=1 to 5 do
if (a[i,j] < 0) then
begin
inc(l);
b[l]:=a[i,j];
end
else
begin
inc(k);
c[k]:=a[i,j];
end;
write('Массив B: ');
for i:=1 to j do write(b[i],' ');
writeln;
write('Массив C: ');
for i:=1 to l do write(c[i],' ');
writeln;
end.
1
0 / 0 / 0
Регистрация: 20.05.2013
Сообщений: 29
19.06.2013, 15:54  [ТС] 6
Спасибо)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.06.2013, 15:54

Скопировать из исходного вектора положительные элементы в один массив, а отрицательные - в другой
Переписать отдельно в разные массивы положительные и отрицательные элементы вектора.

Окрасить все положительные элементы матрицы в красный цвет, все отрицательные в зеленый, а все нулевые элементы в белый.
ПОМОГИТЕ ПОЖАЛУЙСТА!на паскаль абс 1) Целочисленная матрица n-го порядка создается из случайных...

Скопировать элементы исходного массива в новые массивы: отрицательные - в один, положительные - в другой
Помогите разобраться с этой темой: https://www.cyberforum.ru/cpp-beginners/thread794490.html И...

Двумерный массив. Заменить все отрицательные элементы на их абсолютное значение, а все положительные - на их отрицательные эквиваленты
1) Дан двухмерный массив вещественных чисел размерностью N*M. Замените все отрицательные элементы...


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

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

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