ABC Pascal
Дан файл целых чисел. Создать два новых файла, первый из которых содержит положительные числа из исходного файла (в обратном порядке), а второй - отрицательные ( так же в обратном порядке). Если положительные или отрицательные числа в исходном файле отсутствуют, то соответствующий результирующий файл оставить пустым.
Другие языки программирования и технологии
Дан файл целых чисел. Создать два новых файла, первый из которых содержит положительные числа из исходного файла...

-71 7-4 48 83 30-50 35-30 8
otric : -30-50-4-71
polozhit : 8 35 30 83 48 7
-------------
52-78-60 40-76-55-45-43-49 55
otric : -49-43-45-55-76-60-78
polozhit : 55 40 52
-------------
87 8 16-49-58-61 64-16-1 7
otric : -1-16-61-58-49
polozhit : 7 64 16 8 87
-------------
-48-25 79-53 65-81-51 38 99 86
otric : -51-81-53-25-48
polozhit : 86 99 38 65 79
-------------
-25-69 74-83 66-61 94 51-94 72
otric : -94-61-83-69-25
polozhit : 72 51 94 66 74
-------------
97-23-14 44 64 90 62 17 17-18
otric : -18-14-23
polozhit : 17 17 62 90 64 44 97
-------------
-82 2 8 96-34-96 83 9-47 72
otric : -47-96-34-82
polozhit : 72 9 83 96 8 2
-------------
-99-31-92 97 22 55 31-95 32-47
otric : -47-95-92-31-99
polozhit : 32 31 55 22 97
-------------
74-35-72 17 31-75-84-12 60 9
otric : -12-84-75-72-35
polozhit : 9 60 31 17 74
-------------
-9-56-85 81 75 16-28-16-42-78
otric : -78-42-16-28-85-56-9
polozhit : 16 75 81
-------------
-48-68-94-23-63-41 25-40-70 76
otric : -70-40-41-63-23-94-68-48
polozhit : 76 25
-------------
-96 44 50 39 54 87 19 12-86 87
otric : -86-96
polozhit : 87 12 19 87 54 39 50 44
-------------
-71 45 6 46-41-7 76 68-71-52
otric : -52-71-7-41-71
polozhit : 68 76 46 6 45
-------------
-78-3 100-27 89-80-51 39 99 32
otric : -51-80-27-3-78
polozhit : 32 99 39 89 100
-------------
16-18 33-84 100 4-43-24-71 26
otric : -71-24-43-84-18
polozhit : 26 4 100 33 16
-------------
9-76 21 76 65 12-85-10 11 47
otric : -10-85-76
polozhit : 47 11 12 65 76 21 9
-------------
-90 46 7-63 88-71 93 32-93 100
otric : -93-71-63-90
polozhit : 100 32 93 88 7 46
-------------
-43 70-86-54 18 24 92-70-23 36
otric : -23-70-54-86-43
polozhit : 36 92 24 18 70
-------------
86-8 86 54-28 27-53-3 38-1
otric : -1-3-53-28-8
polozhit : 38 27 54 86 86
-------------
57-78 33-71-78-4-67-43-10-13
otric : -13-10-43-67-4-78-71-78
polozhit : 33 57
-------------
32 82 12-92 87 24 19 59 38 75
otric : -92
polozhit : 75 38 59 19 24 87 12 82 32
-------------
14 63 64 38-69 47-97 10-34 7
otric : -34-97-69
polozhit : 7 10 47 38 64 63 14
-------------
-99-41-57 91 39-53 19 2 63 61
otric : -53-57-41-99
polozhit : 61 63 2 19 39 91
-------------
-67 89-14-100-12 34 68-58-83-2
otric : -2-83-58-12-100-14-67
polozhit : 68 34 89
-------------
-89-59-79-30-3-35-45-42-13-20
otric : -20-13-42-45-35-3-30-79-59-89
polozhit :
-------------
-42 80 34-7 11-90-49 20 99-60
otric : -60-49-90-7-42
polozhit : 99 20 11 34 80
-------------
54 75-85-5-40 5-58 28-27 86
otric : -27-58-40-5-85
polozhit : 86 28 5 75 54
-------------
otric : -30-50-4-71
polozhit : 8 35 30 83 48 7
-------------
52-78-60 40-76-55-45-43-49 55
otric : -49-43-45-55-76-60-78
polozhit : 55 40 52
-------------
87 8 16-49-58-61 64-16-1 7
otric : -1-16-61-58-49
polozhit : 7 64 16 8 87
-------------
-48-25 79-53 65-81-51 38 99 86
otric : -51-81-53-25-48
polozhit : 86 99 38 65 79
-------------
-25-69 74-83 66-61 94 51-94 72
otric : -94-61-83-69-25
polozhit : 72 51 94 66 74
-------------
97-23-14 44 64 90 62 17 17-18
otric : -18-14-23
polozhit : 17 17 62 90 64 44 97
-------------
-82 2 8 96-34-96 83 9-47 72
otric : -47-96-34-82
polozhit : 72 9 83 96 8 2
-------------
-99-31-92 97 22 55 31-95 32-47
otric : -47-95-92-31-99
polozhit : 32 31 55 22 97
-------------
74-35-72 17 31-75-84-12 60 9
otric : -12-84-75-72-35
polozhit : 9 60 31 17 74
-------------
-9-56-85 81 75 16-28-16-42-78
otric : -78-42-16-28-85-56-9
polozhit : 16 75 81
-------------
-48-68-94-23-63-41 25-40-70 76
otric : -70-40-41-63-23-94-68-48
polozhit : 76 25
-------------
-96 44 50 39 54 87 19 12-86 87
otric : -86-96
polozhit : 87 12 19 87 54 39 50 44
-------------
-71 45 6 46-41-7 76 68-71-52
otric : -52-71-7-41-71
polozhit : 68 76 46 6 45
-------------
-78-3 100-27 89-80-51 39 99 32
otric : -51-80-27-3-78
polozhit : 32 99 39 89 100
-------------
16-18 33-84 100 4-43-24-71 26
otric : -71-24-43-84-18
polozhit : 26 4 100 33 16
-------------
9-76 21 76 65 12-85-10 11 47
otric : -10-85-76
polozhit : 47 11 12 65 76 21 9
-------------
-90 46 7-63 88-71 93 32-93 100
otric : -93-71-63-90
polozhit : 100 32 93 88 7 46
-------------
-43 70-86-54 18 24 92-70-23 36
otric : -23-70-54-86-43
polozhit : 36 92 24 18 70
-------------
86-8 86 54-28 27-53-3 38-1
otric : -1-3-53-28-8
polozhit : 38 27 54 86 86
-------------
57-78 33-71-78-4-67-43-10-13
otric : -13-10-43-67-4-78-71-78
polozhit : 33 57
-------------
32 82 12-92 87 24 19 59 38 75
otric : -92
polozhit : 75 38 59 19 24 87 12 82 32
-------------
14 63 64 38-69 47-97 10-34 7
otric : -34-97-69
polozhit : 7 10 47 38 64 63 14
-------------
-99-41-57 91 39-53 19 2 63 61
otric : -53-57-41-99
polozhit : 61 63 2 19 39 91
-------------
-67 89-14-100-12 34 68-58-83-2
otric : -2-83-58-12-100-14-67
polozhit : 68 34 89
-------------
-89-59-79-30-3-35-45-42-13-20
otric : -20-13-42-45-35-3-30-79-59-89
polozhit :
-------------
-42 80 34-7 11-90-49 20 99-60
otric : -60-49-90-7-42
polozhit : 99 20 11 34 80
-------------
54 75-85-5-40 5-58 28-27 86
otric : -27-58-40-5-85
polozhit : 86 28 5 75 54
-------------
Любой файл является файлом целых чисел, кроме файла с нулевым размером
Похожие вопросы
- Дан файл целых чисел.Найти сумму компонент с четным значением и записать в новый файл те из них,значения которых превыша
- Вам даны все целые числа от 1 до N + 1, кроме одного. Найдите отсутствующее число.
- помогите? Дан массив целых чисел (n=15),
- Даны 3 целых числа. Возвести в квадрат отрицательные числа и в третью степень - положительные (число 0 не изменять)
- дан массив целых чисел F1,F2...Fn. распечатать элементы, нах-ся между min и max и их номера. подскажите где я ошибся
- TurboPascal. Дана матрица целых чисел. Возвести её во вторую степень, вывести исходную и полученную матрицы
- Даны 3 целых числа найти среднее язык #C
- Паскаль!!)) входной файл содержит два числа x и y. Выходной последнюю цифру числа x в y степени! помогите пожалуйста!
- Создать список из повторяющихся слов текста из файла. Первый элемент-наиб. часто повторяющееся слово/ Паскаль. (+)
- Даны два текстовых файла А1 и А2. Создать 3-ий файл в котором будет первая половина А1 и вторая половина А2.