1) Написать программу, которая вводит массив из 10 целых чисел и выводит на экран этот же массив в прямом и обратном порядке. 2) Написать программу, которая вводит массив из 8 целых чисел выводит на экран номера отрицательных элементов и сами эти элементы. 3) Написать программу, которая вводит массив из 8 целых чисел и выводит на экран элементы с четными номерами. 4) Написать программу, которая вводит массив из 12 целых чисел и выводит на экран сам массив и сумму всех этих элементов.

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]<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.