предоставлю 2 программы на выбор
1)var a: array [1..10000] of integer;
b: array [1..10000] of integer;
i,n: integer;
begin
readln (n);
for i:=1 to n do readln (a[i]);
for i:=1 to n do b[i]:=a[i]+2;
for i:=1 to n do
write(b[i],' ')
end.
2)var a: array [1..10000] of integer;
for i:=1 to n do begin readln (a[i]); b[i]:=a[i]+2; end;
for i:=1 to n do write(b[i],' ')
предоставлю 2 программы на выбор
1)var a: array [1..10000] of integer;
b: array [1..10000] of integer;
i,n: integer;
begin
readln (n);
for i:=1 to n do readln (a[i]);
for i:=1 to n do b[i]:=a[i]+2;
for i:=1 to n do
write(b[i],' ')
end.
2)var a: array [1..10000] of integer;
b: array [1..10000] of integer;
i,n: integer;
begin
readln (n);
for i:=1 to n do begin readln (a[i]); b[i]:=a[i]+2; end;
for i:=1 to n do write(b[i],' ')
end.