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

18 Июл 2021 в 19:43
117 +1
0
Ответы
1

program Sequence;

var
n, i: integer;
a: array[1..100] of integer;
flag: boolean;

begin
writeln('Введите количество чисел в последовательности:');
readln(n);

writeln('Введите элементы последовательности:');
for i := 1 to n do
readln(a[i]);

flag := true;
for i := 1 to n - 1 do
begin
if (a[i] mod 2 <> 0) and (a[i + 1] mod 2 = 0) then
begin
flag := false;
break;
end;
end;

writeln('Результат:');
if flag then
begin
for i := 1 to n do
begin
if a[i] < 0 then
write(a[i], ' ');
end;
end
else
begin
for i := 1 to n do
begin
if a[i] > 0 then
write(a[i], ' ');
end;
end;
end.

17 Апр 2024 в 14:23
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир