Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Dominik74
0 / 0 / 2
Регистрация: 10.12.2011
Сообщений: 21
1

Переместить отрицательные элементы в начало, сдвинув остальные элементы вправо

10.12.2011, 18:47. Просмотров 1052. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста решить задачи (с подпрограммами):

1. Дан одномерный массив. Переместить отрицательные элементы в начало, сдвинув остальные элементы вправо.

2. Руководство ведет каждый месяцам учет расходов фирмы. Получена информация за n месяцев. Расставить данные по расходам в порядке в их возрастания.

3. Дан двумерный массив. В каждой строке замените знак максимального по модулю элемента на противоположный.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2011, 18:47
Ответы с готовыми решениями:

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

Дан одномерный массив. Переместить максимальные элементы в конец, сдвинув остальные элементы влево
Собственно сабж... "Дан одномерный массив. Переместить максимальные элементы в...

Переместить минимальные элементы массива в начало, сдвинув остальные элементы вправо
Дан одномерный массив. Переместить минимальные элементы в начало, сдвинув...

Переместить максимальные элементы массива в начало, сдвинув остальные элементы вправо
Одномерный массив А заполнить случайными числами из диапазона . Переместить...

Переместить нулевые элементы массива в конец, сдвинув остальные элементы влево
1. Одномерный массив А длиной М. Переместить нулевые элементы массива в...

1
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
11.12.2011, 04:11 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Dominik74 Посмотреть сообщение
3. Дан двумерный массив. В каждой строке замените знак максимального по модулю элемента на противоположный.
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;
type mas=array [1..100,1..100] of integer;
var a:mas;
    n,m,i,j:integer;
    
procedure Zamena(var a: mas);
var max: integer;
begin
for i:=1 to n do
    begin
    max:=1;
    for j:=1 to m do
        if abs(a[i,j])>abs(a[i,max]) then max:=j;
    a[i,max]:=a[i,max]*(-1);
    end;
end;
 
begin
writeln('n,m=');
readln(n,m);
writeln('');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:4);
        end;
    writeln;
    end;
Zamena(a);
writeln('');
for i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:4);
    writeln;
    end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2011, 04:11

В одномерном массиве все отрицательные элементы переместить в начало, а остальные-в конец
В одномерном массиве все отрицательные элементы переместить в начало массива, а...

Последовательно переместить отрицательные элементы вправо, а положительные - влево
type PList = ^TList; TList = record info: integer; pred, next:...

Все отрицательные элементы матрицы переместить в начало по возрастанию значения элементов
В однмерном массиве все отрицательные элементы переместить в начало по...


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

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

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