65

Написать программу в Pascal даны целые числа а 1…

sdm881 06 апреля 2023

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

категория: информатика

88

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.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...