Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Я что то сделала тут неправильно?
Разработать программу на языке Паскаль для решения следующей задачи.
Задан массив целых чисел X(n). Найти
• сумму нечётных элементов массива;
• наибольшее из положительное чисел массива.
Из данного массива и некоторого массива того же типа, но другой
размерности Y (m), сформировать общий массив Z(n + m)[code lang=pascal]
const

n=10;

m=8;

var

x : array [0..n] of integer;

y : array [0..m] of integer;

z : array [0..n+m] of integer;

i, c, mi : integer;

begin

randomize;

writeln('Массив X');

for i:=0 to n-1 do begin

x[i] := random(100)-50;

if i<m then

y[i] := random(100)-50;

write(x[i], ' ');

end;

c:=0;

mi:=0;

for i:=0 to n+1 do begin

if x[i] mod 2 = 0 then c:=c+x[i];

if (x[i] < 0) and (x[i] < mi) then mi:=x[i];

end;

writeln();

writeln('Сумма нечётных = ', c);

if mi>0 then

writeln('Наибольшее из положительных = ', mi)

else

writeln('Отрицательных элементов не найдено');

(*Задание 2 - объединить массивы a и b*)

writeln('Массив Y');

for i:=0 to n-1 do z[i]:=x[i];

for i:=0 to m-1 do begin

z[i+n]:=y[i];

write(y[i], ' ');

end;

writeln();

writeln('Массив Z');

for i:=0 to n+m-1 do

write(z[i], ' ');

end. [/code]
Так же прошу помощи!!!
В двумерном массиве А[10, 10] найти минимальный элемент каждой из
строк и количество отрицательных элементов каждого из столбцов. Для поиска
минимального использовать подпрограмму, которая находит минимальной
элемент в одной строке, а для поиска максимального - функцию которая находит
максимальный элемент в одном столбце.
Заранее благодарю.