Program Z1;
const
n1=20; {Наибольшее кол-во чисел в массиве}
n=3; {Кол-во элементов массива А}
k=3; {Кол-во элементов массива B}
m=20; l=10; {Константы для генератора случайных чисел}
type
ta=array[1..n1] of integer; {Имя типа массива А и В}
var
a , b :ta; {a и b- массивы чисел }
k1, k2, {Кол-во отрицательных чисел массивов А и В}
s1, s2, {Суммы отрицательных чисел массивов А и В}
m1, m2,i :integer; {Минимальные числа массивов А и В}
f :integer;
function fk(var fab:ta;fnk:integer):integer; {Определение кол-ва отрицательных чисел}
var i,k :integer;
begin
k:=0;
for i:=1 to fnk do {счетчик от одного до количества елементов в масиве}
if fab[i] < 0 then k:=k+1; {если число меншн нуля то количество +1}
writeln (k) ;
fk:=k;
end;
function fs(var fab:ta;fnk:integer):integer; {Определение суммы отрицательных чисел}
var i,s :integer;
begin
s:=0;
for i:=1 to fnk do
{счетчик от одного до количества елементов в масиве}
if fab[i]<0 then s:=s+fab[i];{если число менше 0 то прибаветь к суме}
writeln (s);
fs:=s;
end;
function fm(var fab:ta;fnk:integer):integer; {Определение маименьших чисел в массиве}
var i,m,id :integer;
begin
m:=fab[1]; {определяеим первое число масива как наменшее}
for i:=1 to fnk do
if fab[i]<m {если следущее число масива менше}
then m:=fab[i]; {определяем его наименшим числом}
fm:=m;
end;
begin
randomize;
for i:=1 to k do
begin
b[i]:=Random(m)-l;{массива В с помощью генератора случайных чисел}
writeln('b[',i,']= ',b[i]);
end;
for i:=1 to n do
begin
a[i]:=Random(m)-l;{массива a с помощью генератора случайных чисел}
writeln('a',i,']= ',a[i]);
end;
k1:=fk(a,n); {Количество отрицательных чисел массива А}
k2:=fk(b,k); {Количество отрицательных чисел массива В}
s1:=fs(a,n); {Сумма отрицательных чисел массива А}
s2:=fs(b,k); {Сумма отрицательных чисел массива В}
m1:=fm(a,n); {Минимальное число массива А}
m2:=fm(b,k); {Минимальное число массива В}
f :=(k1+k2)*m1-(s1+s2)*m2; {Результат решения задачи}
writeln('k1= ',k1,' k2= ',k2,' s1= ',s1,' s2= ',s2,' m1= ',m1,' m2= ',m2);
writeln('f= ',f);
readln; { пауза }
end.