Напиши код на паскале. заполнить массив a размерностью n и массив b размерностью m, с промежутком [-70;70]и вывести потом условие если кол-во чётных больше в массиве a чем в массиве b то массив a перевернуть, а массив b отсортировать по возрастанию если условие не выполняется тогда наоборот

program FillAndSortArrays;

var a, b: array of integer; n, m, i, countEvenA, countEvenB: integer; temp: integer;

begin // Ввод размерностей массивов writeln('Enter the size of array a:'); readln(n); setlength(a, n);

writeln('Enter the size of array b:'); readln(m); setlength(b, m);

// Заполнение массива a for i := 0 to n - 1 do a[i] := random(141) - 70;

// Заполнение массива b for i := 0 to m - 1 do b[i] := random(141) - 70;

// Подсчет количества четных чисел в массивах countEvenA := 0; for i := 0 to n - 1 do if a[i] mod 2 = 0 then countEvenA := countEvenA + 1;

countEvenB := 0; for i := 0 to m - 1 do if b[i] mod 2 = 0 then countEvenB := countEvenB + 1;

// Проверка условия и сортировка массивов if countEvenA > countEvenB then begin // Переворачиваем массив a for i := 0 to n div 2 - 1 do begin temp := a[i]; a[i] := a[n - i - 1]; a[n - i - 1] := temp; end; end else begin // Сортируем массив b по возрастанию for i := 0 to m - 2 do for j := i + 1 to m - 1 do if b[i] > b[j] then begin temp := b[i]; b[i] := b[j]; b[j] := temp; end; end;

// Вывод массивов writeln('Array a:'); for i := 0 to n - 1 do write(a[i], ' '); writeln;

writeln('Array b:'); for i := 0 to m - 1 do write(b[i], ' '); writeln; end.