Нужна с массивами по информатике:
!
1) в программе описан одномерный целочисленный массив с индексами от 1 до 10. ниже представлен фрагмент программы, обрабатывающей данный массив:
n: =10;
for i: =1 to n do begin
s = a[n+1-i] + i;
a[n+1-i]: = a[i] + i;
a[i]: = s;
end;
перед началом выполнения фрагмента все элементы массива равны 1. укажите утверждение, которое будет верно после выполнения указанного фрагмента программы при изменении индекса от 1 до 10.
1) значения массива возрастают
2) значения массива сначала возрастают, а потом убывают
3) значения массива убывают
4) значения массива постоянны

2) в программе описан одномерный целочисленный массив с индексами от 1 до 10. ниже представлен фрагмент программы, обрабатывающей данный массив:
n: = 10;
for i: = 1 to n do begin
a[n+1-i]: = 2*a[i];
end;
в начале выполнения этого фрагмента в массиве находились числа 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, т. е. а[1]=1, а[2]=2 и т. д. укажите значение, которое после выполнения указанного фрагмента программы имеют два или более элемента массива. если таких чисел несколько, укажите наибольшее из них.

3) в программе описан одномерный целочисленный массив с индексами от 0 до 10. ниже представлен записанный на разных языках программирования фрагмент одной и той же программы, обрабатывающей данный массив:
s: =0;
n: =10;
for i: =0 to n-3 do begin
s: =s+a[i]-a[i+3]
end;
в начале выполнения этого фрагмента в массиве находились трѐхзначные натуральные числа. какое наибольшее значение может иметь переменная s после выполнения данной программы?

4) в программе используется одномерный целочисленный массив a с индексами от 0 до 9. значения элементов равны 4, 7, 3, 8, 5, 0, 1, 2, 9, 6 соответственно, т.е. a[0] = 4, a[1] = 7 и т.д. определите значение переменной c после выполнения следующего фрагмента этой программы:
c : = 0;
for i : = 1 to 9 do
if a[i] < a[0] then begin
c : = c + 1;
t : = a[i];
a[i] : = a[0];
a[0] : = t;
end;

5) в программе используется одномерный целочисленный массив с индексами от 0 до 9. значения элементов равны 20, 19, 17, 41, 15, 12, 24, 16, 4, 13 соответственно, т.е. a[0]=20, a[1]=19 и т.д. определить значение переменной s после выполнения следующего фрагмента этой программы:
s: =0;
n: =6;
for i: =0 to 9 do
if a[i]< =a[n] then begin
s: =s+i;
t: =a[i mod n];
a[i mod n]: =a[n];
a[n]: =t;
end;

Массивы
Массив – это упорядоченная совокупность данных, обозначаемых одним именем, доступ к элементам массива осуществляется по их номерам (индексам). Элементами массива могут быть данные любого типа, включая структурированные, но в одном массиве могут храниться данные только одного типа (real, integer, string, char и пр.).
Если за каждым элементом массива закреплен только один его порядковый номер, то такой массив называется линейным,  одномерным или вектором.
Одномерные массивы

Объявление одномерных массивов
Описать одномерный массив можно несколькими
В разделе переменныхVar имя массива : Array [тип индекса] of тип элементов ;
В разделе описания типовType имя типа = Array [тип индекса] of тип элементов ;Var имя массива : имя типа ;
В разделе константConst имя массива : Array [тип индекса] of тип элементов = (список элементов);

Ввод данных в одномерный массив
1. Ввод массива с клавиатуры оператором Read.
For i:=1 to n do
Begin
Writeln('введите элемент массива');
Read (A[ i ]);
2. Заполнение массива с генератора  случайных чисел Random на интервале (a,b):
Randomize;
For i:=1 to n do
A[ i ] := Random (b-a)+a;
3. Ввод массива в разделе констант (производится вместе с объявлением).
Const N=5;
A:=array [1..N] of integer (-8,0,4,1,3);
Вывод данных в одномерном массиве
Вывод массива в Паскале осуществляется также поэлементно, в цикле, где параметром выступает индекс массива, принимая последовательно все значения от первого до последнего.
Вывод в строку.
A: array [1..10] of integer;
i : integer ;
Begin
For i :=1 to 10 do
Write ( a [ i ],' ');
End
Вывод в столбец.
var
A: array [1..10] of integer;
i : integer ;
Begin
For i :=1 to 10 do
Writeln ( a [ i ]);
End
Пример 1: Ввести 2 вектора, размерностью n, найти сумму этих векторов.
Program summa;
Var
a, b, c: array [1..100] of integer;
i, n: byte;
Begin
Write (‘введите размерность массивов:’);
Readln(n);
For i:=1 to n do
Readln (a[i]);
For i:=1 to n do
Readln (b[i]);
For i:=1 to n do
C[i]:=a[i]+b[i];
For i:=1 to n do
write (c[i],’ ‘);
end.
Двумерные  массивы
Массивы, положение элементов в которых описывается двумя индексами, называютсядвумерными. Их можно представить в виде прямоугольной таблицы или матрицы.
Каждый элемент имеет свой номер, как у одномерных массивов, но сейчас номер уже состоит из двух чисел - номера строки, в которой находится элемент, и номера столбца. Таким образом, номер элемента определяется пересечением строки и столбца. Например, a12 - это элемент, стоящий в первой строке и во втором столбце.
Существуют несколько объявления двумерного массива.
В Паскале двумерный массив можно описать как одномерный, элементами которого являются одномерные массивы. Например, для матрицы А, приведённой выше:
Const n = 2; m = 3;Type omyarray = Array[1..m] Of <тип элементов >;dmyarray = Array[1..n] Of omyarray;Var v : omyarray;a : dmyarray;
В данном случае переменная v объявлена как одномерный массив из трёх элементов вещественного типа. Переменная а описана как двумерный массив из двух строк, каждую из которых включено по три элемента.
Описание массива А можно сократить, исключив определение типа omyarray в определении типа dmyarray:
Const n = 2; m = 3;Type dmyarray = Array[1..n, 1..m] Of <тип элементов>;Var a : dmyarray.
Ещё более краткое описание массива А можно получить, указывая имя массива и диапазоны изменения индексов для каждой размерности массива:
Const n = 2; m = 3;Type dmyarray = Array[1..n, 1..m] Of <тип элементов >;
Var a : dmyarray.
Если указанный тип используется для определения одного массива в программе, то удобно объявление массива в разделе описания переменных:
Var a: Array [1..n, 1..m] Of < тип элементов >.
Рассмотренные выше методы решения задач обработки одномерных массивов могут применяться для обработки двумерных массивов. Поскольку положение элемента в двумерном массиве описывается двумя индексами [первый - номер строки, второй - номер столбца], программы большинства матричных задач строятся на основе вложенных циклов. Обычно внешний цикл работает по строкам матрицы, то есть с его выбирается требуемая строка матрицы, а внутренний цикл - по столбцам матрицы, то есть здесь выбирается нужный элемент из выбранной уже строки.
Пример 2:
Program massiv;
Const n = 3; m = 4;
Type massiv = Array[1..n., 1..m] of integer;
Var A : massiv;
I,j:integer;
Begin
For i:=1 To n Do
For j:=1 To m Do
x[i,j]:=-25+Random(51);
For i:=1 To n Do
Begin
For j:=1 To n Do Write(x[i,j]:5);
Writeln;
End;
End.

P.S. Сможешь сам?

Объяснение:

program graphic;

var

   x, y: real;

   underLine, underLog, inCircle: boolean;

begin

 writeln('введите Х:');

 readln(x);

 writeln('введите У:');

 readln(y);

 //проверяем, что попали в первую четверть

 if (x >= 0) and (y >= 0) then

 begin

   underLine := (y <= -x + 2);

   underLog := (exp(y) <= x);

   inCircle := (x*x + y*y <= 9);

   if inCircle and (underLog xor underLine) then

       writeln('внутри области')

   else

       writeln('вне области');

 end

 else

   writeln('вне области');

end.

UPD

если нужно записать это одним оператором, то это будет выглядеть так

program graphic_v2;

var

   x, y: real;

begin

 writeln('введите Х:');

 readln(x);

 writeln('введите У:');

 readln(y);

 if (x >= 0) and (y >= 0) and (x*x + y*y <= 9) and ((y <= -x + 2) xor (exp(y) <= x)) then

     writeln('внутри')

 else

     writeln('снаружи');

end.