чтобы не задавать вручную, пусть он заполняется случайными числами в диапазоне от -50 до + 50
Free 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.
Б) D2 : G10;