Программа в Паскале: Дан одномерный массив С размерностью N. Переставить местами первый и последний элемент массива, если...

[hars1]

Здравствуйте! Возникла проблема: препод по информатике задал задачу, но ее решить не могу (Помогите решить, пожалуйста.
УСЛОВИЕ: Дано одномерный массив С размерностью N.
НАДО: Переставить местами первый и последний элемент массива, если все положительные элементы массива на четных позициях и не превосходят заданное число Р, иначе сделать знаки всех элементов массива отрицательными.

ПОЖАЛУЙСТА, ПОМОГИТЕ, МНОГОЕ ЗАВИСИТ ОТ ЭТОГО ЗАДАНИЯ

[ZX Spectrum-128]

Переменные, константы описаны? Массив заполнен?

[hars1]

ничего не сделано

[hars1]

program z1;
const n=10;
var a: array [1..n] of integer;
    buf,i,P:integer;
    f:byte;
begin
writeln('Введіть елементи масиву');
for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;
write('Введіть P: ');
readln(P);
f:=1;
for i:=1 to n do
    if f=1
       then
       if i mod 2 =0
          then if (a[i]>0) and (a[i]<P)
                  then f:=1
                  else f:=0
          else
       else break;
if f=1
   then begin
        buf:=a[1];
        a[1]:=a[n];
        a[n]:=buf;
        end
   else for i:=1 to n do
        a[i]:=-abs(a[i]);
for i:=1 to n do
    writeln(a[i]);
end.

вот что сделал,вроде работает, но неуверен что правильно



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

вот что сделал,вроде работает, но неуверен что правильно

немножко замороченно внутри цикла, когда устанавливаете признак f в ноль. (я бы написал по другому!)

Но в целом код выглядит вполне себе рабочим.
На мой взгляд - годится!

[hars1]

как бы вы писали?

[Serge_Bliznykov]

вместо

f:=1;
for i:=1 to n do
    if f=1
       then
       if i mod 2 =0
          then if (a[i]>0) and (a[i]<P)
                  then f:=1
                  else f:=0
          else
       else break;

f:=1;
i:=2;
while (i<=n) and (f=1) do
begin
  if not ((a[i]>0) and (a[i]<P)) then f:=0;
  i := i + 2;
end;

но учтите, что ваш код (как и мой код в данном примере, проверяет, стоят ли в чётных позициях массива положительные числа, меньшие P
а я сегодня перечитал задание.
Его, скорее, нужно по другому трактовать. Нужно проверить ВСЕ положительные числа в массиве, если они все стоят на чётных позициях (т.е. нет ни одного положительного числа, стоящего на нечётной позиции), и при этом ВСЕ положительные числа меньше P, тогда условие выполняется!

если читать задание в такой трактовке, тогда код проверки будет примерно такой:

f:=1;
i:=1;
while (i<=n) and (f=1) do
begin
  if a[i]>0 then {нашли положительное число}
        {если оно стоит в нечётной позиции или оно больше P - флаг сбросили}
    if (i mod 2 <> 0) or (a[i]>=P) then f:=0;
  i := i + 1;
end;

или такой :

f:=1;
for i:=1 to n do
begin
  if a[i]>0 then {нашли положительное число}
        {если оно стоит в нечётной позиции или оно больше P - флаг сбросили}
    if odd(i) or (a[i]>=P) then begin
      f:=0;
      break
    end;
end;

выбирайте понравившийся...

[hars1]

Понял,спасибо,помогли очень)