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.
Мини-программа на Паскале для проверки