Первая задача:
var a:array[1..8] of integer=(2,-1,0,8,-5,10,5,-3);
b:array[1..8] of integer;
i:integer;
begin
for i:=1 to 8 do b[i]:=a[i]+5;
for i:=1 to 8 do writeln(b[i]); //выводим массив b.
end.
Вторая задача:
var a:array[1..8] of integer=(2,-1,0,8,-5,10,5,-3);
b:array[1..8] of integer;
i:integer;
begin
for i:=1 to 8 do b[i]:=a[i]*2;
for i:=1 to 8 do writeln(b[i]); //выводим массив b.
end.