Из двух одномерных массивов 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;beginfor i:=1 to N dobegina[i]:=random(1,100);//если хочеш ввести с клавы напиши вместо строки readln(a[i]);b[i]:=random(1,100);//если хочеш ввести с клавы напиши вместо строки readln(b[i]);end;for i:=1 to N dobeginif a[i]>b[i] then c[i]:=a[i]-b[i]else c[i]:=b[i]-a[i];write(c[i],);end;end.