разобраться как это работает n:= 10;
for i:= 1 to n do begin
A[n+1-i]:= 2*A[i];
end;

AlexandraBobkova    1   29.01.2022 04:38    0