Задать вопрос
29 июня, 18:10

Удалить все отрицательные элементы массива и расположить оставшиеся по убыванию

+1
Ответы (1)
  1. 29 июня, 20:21
    0
    Cls

    input n

    dim a (n)

    s=0

    for i=1 to n

    input a (i)

    next i

    for i=1 to n

    if a (i) >0 then s=s+1

    next i

    if s>0 then

    p=1:t=0

    dim b (s)

    for i=1 to s

    for j=p to n

    t=t+1

    if a (j) >0 then b (i) = a (j) goto 1

    next j

    1: p=t

    next i

    for i=1 to s

    for j=1 to s

    if b (i)
    next j

    next i

    for i=1 to s

    print b (i) ;

    next i

    end if
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Удалить все отрицательные элементы массива и расположить оставшиеся по убыванию ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Все задачи делаются в Паскале! 1) Увеличить все элементы массива A на 1. 2) Умножить все элементы массива A на 2. 3) Возвести в квадрат все элементы массива A.
Ответы (1)
1. Возвести в квадрат все элементы массива A. Размер массива и значения элементов массива - произвольные. 2. Увеличить на 4 все элементы в первой половине массива A (считать, что в массиве чётное число элементов).
Ответы (1)
В записи m[7]=9 m обозначает 1) имя массива 2) имя элемента массива 3) номер элемента массива 4) значение элемента массива в записи m[7]=
Ответы (1)
Помогите с информатикой 1. Что такое массив? 2. Что такое элемент массива? 3. Что такое индекс массива? 4. Что такое размерность массива? 5. Зачем нужны массивы? 6. Как можно обратиться к ячейке массива? 7. Какого типа могут быль элементы массива? 8.
Ответы (1)
Дан целочисленный массив размера N. Удалить из массива все элементы с четными номерами. Когда из массива "удаляются элементы", то его размер, очевидно, меньше не становится. Просто появляются неиспользуемые ячейки.
Ответы (1)