1)дан одномерный массив из 15 элементов пересавить их в обртном порядке

1) 

var
matrix, matrix_: array[1..15]of integer;

begin
writeln(Начальный массив:);
for i: integer := 15 downto 1 do
begin
matrix[i] := random(20);
write(matrix[i]:4);
matrix_[15 - i + 1] := matrix[i];
end;
writeln;
writeln(Оборотный массив:);
for i: integer := 15 downto 1 do
write(matrix_[i]:4);

end.

2)

var
matrix: array[1..20]of real;
i: integer;
s:real;

begin
for i := 1 to 20 do
begin
matrix[i] := random(20);
write(matrix[i]:4);
if matrix[i]gt;0 then
s:=s+matrix[i];
end;

writeln;
writeln(Sum = ,s);
end.

3) 

var
matrix: array[1..20]of integer;
i: integer;

begin
for i := 1 to 20 do
begin
if i mod 2 = 0 then
matrix[i] := 8
else
matrix[i] := random(20);
write(matrix[i]:4);
end;
end.

4) 

var
matrix,matrix_,res: array[1..20]of integer;
i: integer;

begin
for i := 1 to 20 do
begin
matrix[i]:= random(20);
matrix_[i]:= random(20);
if matrix[i]gt;matrix_[i] then
res[i]:=matrix_[i]
else
res[i]:=matrix[i];
end;
write(matrix);
writeln;
write(matrix_);
writeln;
write(Массив минимальных эл-тов: ,res);
end.