Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Милавира
2 / 2 / 0
Регистрация: 07.01.2013
Сообщений: 22
1

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

07.01.2013, 19:26. Просмотров 1103. Ответов 1
Метки нет (Все метки)

Тема 3. Одномерные массивы

Задан массив, содержащий несколько нулевых элементов. Сжать массив, выбросив эти элементы (дополнительный массив не использовать).

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.01.2013, 19:26
Ответы с готовыми решениями:

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

Задан массив, содержащий несколько нулевых элементов. Сжать его выбросив эти элементы
Задан массив, содержащий несколько нулевых элементов. Сжать его выбросив эти элементы, а оставшиеся...

Задан массив, содержащий несколько нулевых элементов. Сжать его, выбросив эти элементы
Помогите решить)

Массивы. Задан массив,содержащий несколько нулевых элементов. Сжать его выбросив эти элементы.
Задан массив,содержащий несколько нулевых элементов. Сжать его выбросив эти элементы.

Задан массив, содержащий несколько нулевых элементов
4. Задан массив, содержащий несколько нулевых элементов. Сжать его, выбросив эти элементы. я...

1
softmob
1251 / 701 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
08.01.2013, 00:04 2
Лучший ответ Сообщение было отмечено Милавира как решение

Решение

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
RANDOMIZE TIMER
CONST n = 10
DIM a(n)
FOR i = 1 TO n
    a(i) = INT(RND * 3)
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
i = 1
WHILE i <= n - k
    IF a(i) = 0 THEN
        k = k + 1
        FOR j = i TO n - k
            SWAP a(j), a(j + 1)
        NEXT
    ELSE
        i = i + 1
    END IF
WEND
PRINT STRING$(80, 196)
FOR i = 1 TO n - k
    PRINT a(i);
NEXT
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.01.2013, 00:04

Сжать массив, выбросив из него отрицательные элементы - массив становится пустым
Задачка такая: Разработать программу, обеспечивающую ввод с клавиатуры целых чисел и сохранение их...

Массив. Сжать массив, выбросив нулевые элементы
Помогите плс! Задан массив, содержащий несколько нулевых элементов. Сжать его, выбросив эти...

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


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

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

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