1) Написать программку, которая вводит массив из 10 целых чисел и

1) var
arra: array[1..10]of integer;

begin
writeln(Запишем массив в прямом порядке:);
for i: integer := 10 downto 1 do
begin
arra[i] := random(30);
write(arra[i]:5);
arra_[10 - i + 1] := arra[i];
end;
writeln;
writeln(Запишем массив в оборотном порядке:);
for i: integer := 10 downto 1 do
write(arra_[i]:5);

end.

2) var
arra: array[1..8]of integer;

begin
writeln(Запишем массив:);
for i: integer := 1 to 8 do
begin
arra[i]:= random(30)-15;
write(arra[i]:5);
end;
writeln;

for i: integer := 1 to 8 do
if arra[i]lt;0 then
writeln(Отрицательный элемент ,arra[i]:3, под номером , i);

end.

3)  var
arra: array[1..8]of integer;

begin
writeln(Запишем массив:);
for i: integer := 1 to 8 do
begin
arra[i]:= random(30)-15;
write(arra[i]:5);
end;
writeln;

for i: integer := 1 to 8 do
if i mod 2=0 then
writeln(Четный номер у элемента ,arra[i]:3, , индекс , i);

end.

4) var
arra: array[1..12]of integer;
sum:integer;

begin
writeln(Запишем массив:);
for i: integer := 1 to 12 do
begin
arra[i]:= random(30)-15;
write(arra[i]:5);
end;
writeln;

for i: integer := 1 to 12 do
sum:=sum+arra[i];
writeln(СУММА ,sum);

end.