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


Написать программу в Pascal даны целые числа а1...аn. Если в данной последовательности ни одно четное число не расположено после нечетного.то получить все отрицательные члены последовательности иначе-положительное.

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

    var a: array[1..50] of integer; i,f, n: integer;

    begin write('n='); readln(n); for i := 1 to n do begin write('a', i, '='); readln(a[i]); end; f := 0; writeln; for i := 1 to n - 1 do if (a[i] mod 2 <> 0) and (a[i + 1] mod 2 = 0) then f := 1; if f = 0 then begin for i := 1 to n do if a[i] < 0 then write(a[i]:4); end else for i := 1 to n do if a[i] > 0 then write(a[i]:4);end.

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

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

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

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

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

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

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

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

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

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

Информация

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

Задай вопрос

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


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


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