const n=10;
var a,b,c:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('--a--');
for i:=1 to n do begin
 a[i]:=random(10)-5;
 write(a[i]:3);
 end;
writeln;
writeln('--b--');
for i:=1 to n do begin
 b[i]:=random(10)-5;
 write(b[i]:3);
 end;
writeln;
for i:=1 to n do if b[i]<>0 then c[i]:=a[i] mod b[i];
writeln('--c--');
for i:=1 to n do write(c[i]:3);
writeln;
end.

Пример работы программы:
--a--
  2 -2 -3  2  3  3 -2 -2 -5 -2
--b--
 -4  1 -4 -1  3  4 -1 -2  3  0
--c--
  2  0 -3  0  0  3  0  0 -2  0