Question

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

Answer 1

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.