hars14 написав:

Доброго дня! Виникла проблема: препод по інформатиці задав задачу, але її вирішити не можу(

Тут є два варіанти: або дійсно не можете - тоді показуйте, що можете і на чому виникла проблема; або навіть не намагалися відкрити підручник і розібратися - в цьому випадку ідіть на інший факультет, це - не ваше.

hars14 написав:

БУДЬ ЛАСКА,ДОПОМОЖІТЬ,БАГАТО ЧОГО ЗАЛЕЖИТЬ ВІД ЦЬОГО ЗАВДАННЯ

Як крайній варіант, оцініть, чого варте це "багато чого" і запропонуйте хоча б половину цього "багато чого" у відповідному розділі форуму.

Я так розумію, це препод у вас з вересня місяця?

Можете почитати тут: http://uk.wikibooks.org/wiki/Pascal - якщо проблема в преподі.

Здається так

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.

Вчора не було часу передивитись програму,глянув тільки чі працює, а сьогодні дивлюсь і виникло питання:

f:=1;
for i:=1 to n do
    if f=1
       then

для чого ми присвоюємо f значення 1?