ral
Опубликовано 7 лет назад по предмету Информатика от ral


Написать програму для Паскаля :Дан линейный массив,содержащий положительные и отрицательные целые числа ,n=10.Создать новый массив, в котором содержатся только положительные элементы из исходного масива ,упорядочить этот новый массив по возрастанию.

  1. Ответ
    Ответ дан sinbad7

    var i, j, k, p: integer; a, b: array[1..10] of integer;

    begin k := 0; for i := 1 to 10 do begin a[i] := random(20) - 10; write(a[i]:3); if a[i] > 0 then begin k := k + 1; b[k] := a[i]; end; end; for i := 1 to k - 1 do for j := i + 1 to k do if b[i] > b[j] then begin p := b[i]; b[i] := b[j]; b[j] := p; end; writeln; for i := 1 to k do write(b[i]:3);end.

Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
99335871
Другие предметы - 1 год назад

В какой оболочке земли живёт большинство живых организмов?

99335871
Другие предметы - 1 год назад

Из каких неживых частей состоит экосистема

mandrykin
Другие предметы - 1 год назад

На какие расы делятся население земли

kinda2007
Другие предметы - 1 год назад

Определение статуса военнослужащего (краткий ответ!!)

Санёк1999
Другие предметы - 1 год назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Информация

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

Задай вопрос

Лучшие за месяц


Интересные статьи:


Пошаговый план подготовки к ЕГЭ за полгода для школьников
Не сдал ЕГЭ пересдача апелляция альтернативные пути
10 ошибок на ЕГЭ по русскому и способы их избежать
Выбор предметов ЕГЭ для поступления
Секреты подготовки к экзаменам дома от отличников