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