Решает данную задачу и выводит ответ
Program d1;varU: array[1..16] of Real;X: array[1..16] of Real;i,z:integer;beginX[1]:=5;for i:=2 to 16 dobeginX[i]:=X[i-1]+0.2;end;for i:=2 to 16 dobeginU[i]:=X[i]*2+3;Write(U[i],' | ')end;end.
Решает данную задачу и выводит ответ
Program d1;
var
U: array[1..16] of Real;
X: array[1..16] of Real;
i,z:integer;
begin
X[1]:=5;
for i:=2 to 16 do
begin
X[i]:=X[i-1]+0.2;
end;
for i:=2 to 16 do
begin
U[i]:=X[i]*2+3;
Write(U[i],' | ')
end;
end.