3) b[51] - данный элемент равен 0

var a,b: array [1..100] of integer;

n: integer;

begin

for n:=1 to 100 do begin

a[n]:=n-50;

writeln('a[',n,'] = ',a[n]);

end;

for n:=1 to 100 do begin

b[101-n]:=a[n]*a[n];

writeln('b[',101-n,'] = ',b[101-n]);

end;

end.

Мини-программа на Паскале для проверки