Задание №1:
4) В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.
for i:=0 to 10 do
A[i]:=i+3;
for i:=10 downto 0 do begin
k:=A[i];
A[i]:=A[10-i];
A[10-i]:=k;
end;
Чему будут равны элементы этого массива?
 Решение:
исходный 3 4 5 6 7 8 9 10  11 12 13
шаг 1  13 4 5 6 7 8 9 10  11 12 3
шаг2   13 12 5 6 7 8 9 10 11 4 3
шаг3   13 12 11 6 7 8 9 10 5 4 3
шаг4   13 12 11 10 7 8 9 6 5 4 3
шаг5   13 12 11 10 9 8 7 6 5 4 3
шаг6   3 12 11 10 9 8 7 6 5 4 13
шаг7   3 4 11 10 9 8 7 6 5 12 13
шаг8   3 4 5 10 9 8 7 6 11 12 13
шаг9   3 4 5 6 9 8 7 10 11 12 13
шаг10 3 4 5 6 7 8 9 10  11 12 13

Задание №2:
4)  Дан целочисленный массив из 31 элемента, в котором записаны значения температуры воздуха в марте. Элементы массива могут принимать значения от (–20)  до 20. Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит среднюю температуру по всем дням, когда была оттепель (температура поднималась выше нуля). Гарантируется, что хотя бы один день в марте была оттепель.
Program Nastya;
Var A:array[1..31] of byte;
I,S,d,k,p:byte;
Begin
k:=-20;
p:=20;
For I:=1 to 31 do
begin
If k<A[I]<p them
                   For I:=1 to 31 do
                   writeln('Сумма=',S);
                   end;
d:=S/31;
writeln(s);
End.