Из двух одномерных массивов A[1 ... N] и B[1 ... N] сформируйте новый одномерный массив C[1 ... N], значение элементов которого равно разности значений элементов исходного массива.

Program test;

const N = 10;

var i:integer;

a, b, c:array [1 ... N] of integer;

begin

for i:=1 to N do

begin

a[i]:=random (1,100) ; / / если хочеш ввести с клавы напиши вместо строки readln (a[i]) ;

b[i]:=random (1,100) ; / / если хочеш ввести с клавы напиши вместо строки readln (b[i]) ;

end;

for i:=1 to N do

beginif a[i]>b[i] then c[i]:=a[i]-b[i]

else c[i]:=b[i]-a[i];

write (c[i],' ') ;

end;

end.