Помогите написать в виде программы!!!

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

1

Ответы и объяснения

2013-02-03T17:38:33+00:00

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[i]:=random(40)-10;

if (a[i]<min) then min:=a[i];

 

end;

for i:=1 to 10 do begin

b[i]:=random(40)-10;

end;

for i:=1 to 10 do begin

b[i]:=b[i]+min;

writeln(b[i]);

end;

end.