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

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

02.12.2014, 17:16. Показов 1389. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Поменять местами первое число последовательности и второе число , если указанные элементы имеют разные знаки и модуль их разности не больше числа 5.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.12.2014, 17:16
Ответы с готовыми решениями:

Поменять местами первое и второе число в файле
Нельзя использовать другие массивы и файлы. Интересует конкретно сама замена чисел, т.е. каким...

Если первое число больше второго то первое число поделить на второе иначе второе поделить на первое .
Даны два числа заданных с клавиатуры и не равных 0. Если первое число больше второго то первое...

В заданой последовательности чисел поменять местами первое число с последним, другое с предпоследним и т.д
В заданой последовательности чисел поменять местами первое число с последним, другое с...

Если первое число окажется кратным 5 или второе число будет нечетным, то вывести на экран сумму их модулей
4. Даны два числа N и М. Если первое число окажется кратным 5 или второе число будет нечетным, то...

1
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
02.12.2014, 18:12 2
Лучший ответ Сообщение было отмечено hellishworld_ как решение

Решение

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
var
    a : Array[1..100] Of ShortInt;
    i, n : Byte;
    t : ShortInt;
begin
    Randomize;
    Write('n='); ReadLn(n);
    for i := 1 to n do
    begin
        a[i] := Random(199) - 99;
        Write(a[i]:4);
    end;
    WriteLn;
    if ((a[1] * a[2] < 0) And (Abs(a[1] - a[2]) > 5)) then
    begin
        t := a[1];
        a[1] := a[2];
        a[2] := t;
        for i := 1 to n do
            Write(a[i]:4);
    end
    else
        WriteLn('No changes!');
end.
0
02.12.2014, 18:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2014, 18:12
Помогаю со студенческими работами здесь

Поменять местами числа, если у них разные знаки
смотрите next. почему то программа вообще никаких действий с массивом не производит и выводит...

Если первое и последнее его слова имеют одинаковую длину, поменять их местами
Дано предложение. Если первое и последнее его слова имеют одинаковую длину, поменять их местами. В...

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

Вставить число К между всеми соседними элементами, которые имеют разные знаки
(Читать акцентом обычного крестьянина из &quot;Ведьмака 3&quot;, у которого в огороде завелась полуденница)...

Первое число поменять со 150-м, второе со 149-м и т.д.
Открыть файл на запись. Записать в него 150 различных чисел. Закрыть файл. Открыть файл на чтение...

Если первое число отрицательно, то его значение заменить его модулем; в противном случае второе число заменить
Доброго времени суток. В университете задали эти задания по информатике (PascalABC). Сама полный...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru