ПРАКТИЧЕСКАЯ ПО ИНФОРМАТИКЕ(НУЖНО НАПИСАТЬ ПРОГРАММУ)

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

begin
writeln('Введите диапазон:');
write('От:'); var a:= ReadInteger; // Ввод а с целым типом
write('До:'); var b:= ReadInteger;  // Ввод б с целым типом

var m:array[1..10] of integer;     // описание массива

writeln('Начальный массив: ');
for var i:=1 to 10 do       // генерация и вывод массива
    begin
    m[i]:=random(a,b);
    write(m[i]:4);
    end;

writeln;

for var i:=1 to 2 do  // переворот первой части обмена 1 с 5, 2 с 4)
    begin
    var t:=m[i];
    m[i]:=m[6-i];
    m[6-i]:=t;
    end;

for var i:=6 to 7 do // переворот второй части обмена 6 с 10, 7 с 9)
    begin
    var t:=m[i];
    m[i]:=m[16-i];
    m[16-i]:=t;
    end;
writeln('Измененный массив:'); // вывод измененного массива 
for var i:=1 to 10 do
    write(m[i]:4);
end.

Если программа нужна на паскале, то вот держите

program ArrayZ;
uses CRT; // Подключение модуля CRT
var  z: array[1..4, 1..3] of integer; // Массив  i, j, n, o: integer;// Переменные для циклов и счета отрицательных и нечетных элементов
begin  randomize; // Нужно для turbopascal  // Заполнение массива  for i := 1 to 4 do  begin    writeln; // Переход на другую строку    for j := 1 to 3 do    begin      z[i, j] := random(60) - 30; // Рандомное заполнение массива      write(z[i, j]:8); // Вывод в консоль массива    end;  end;  // Нахождение отрицательных и нечетных элементов  for i := 1 to 4 do    for j := 1 to 3 do    begin      if z[i, j] mod 2 <> 0 then // Нахождение нечетных элементов        n := n + 1;      if z[i, j] < 0 then // Нахождение отрицательных элементов        o := o + 1;    end;   writeln; // Переход строки чтобы не было конфликтов  writeln('Нечетных элементов: ', n, ' | Отрицательных элементов: ', o); // Вывод результатаend.