Помогите написать в...

Помогите написать в виде программы!!! Даны 2 одномерных массива А(10) и В(10), диапазон: [-10;40]. В массиве А найти минимальнный элемент, вМассиве В каждый элемент увеличить на этот минимальный

 

Var a:array [1..10] of integer;
b:array [1..10] of integer;
i,min:integer;
begin
randomize;
min:=a[1];
 
for i:=1 to 10 do begin
a:=random(40)-10;
if (a<min) then min:=a;
 
end;
for i:=1 to 10 do begin
b:=random(40)-10;
end;
for i:=1 to 10 do begin
b:=b+min;
writeln(b);
end;
end.